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Von unserem Super-Software-Programm sollten auch Sie profitieren 1 1 1 
Denn wir haben die fantastischsten Spiele und die tollsten Hilfspro- 
grammell 1 Wir haben die Programme, die Sie haben sollten! ! ! 

CHESS MACHINE 

Das neue Schachprogramm, mit der ganz tollen Grafik. Sowas haben Sie noch nie ge- 
sehen I - Höchstens bei Computer mit Super-Hochauflösender Grafik I - Und der 
Clou. CHESS MACHINE gibt Kommentare zu Ihrem Spiel. Damit Sie endlich einmal 
wissen was Sie richtig, und was Sie falsch machen I Sieben Spielstufen I 
Preis auf Cassette: 59,-- DM Preis auf Diskette : 69,- DM 

SUPER BASIC - DER UNGLAUBLICHE NEUE BASIC-COMPILER 

SUPER BASIC verarbeitet Felder (z. B. DIM BS (9,9,8) geht!) I SUPER BASIC Ist 
fast kompatibel zum Colour Genie Basic I Übersetzte Programme laufen bis zu 30Qx 
schneller I 

Preis auf Cassette: 89,- DM Preis auf Diskette: 99,- DM - Mit Disk -Befehlen) 1 1 

SUPER ASSEMBLER - DER ASSEMBLER, DER NEUE MASSSTABE SETZT! 

Was Sie mit diesem Assembler alles übersetzen können ist unglaublich 1 1 1 Und die vie- 
len Befehle, die der versteht. Die Dlsk-Version assembliert auf Wunsch direkt von der 
Diskette (Source-Code bis 1 70 K 1) I 

Preis auf Cassette: 89,- DM Preis auf Diskette : 99,- DM 

HELIKOPTER 

Retten Sie die armen hilflosen Menschen! Versuchen Sie den weißen Elefanten zu 
überfliegen. HELIKOPTER - Das Spiel, von dem die Fachpresse schwärmt! (Siehe 
z. B. Computer Kontakt Nr. 6-7/84) ; 

Nur auf Cassette lieferbar I Preis : 59,-- DM 

GORILLA 

Die fantastische Donkey-Kong Version für Ihr Colour Genie. Mit 10 verschiedenen 
Bildschirmen I 

Nur auf Cassette lieferbar I Preis : 49,-- DM 

FIREBIRD 

Können Sie die Erde vor den erbarmungslosen Angreifern aus dem All retten??? 
Super -Action ist garantiert I 

Nur auf Cassette lieferbar! Preis : 49,- DM 

PACBOY 

Helfen Sie dem kleinen PACBOY vor den hungrigen Gespenstern zu entkommen! 
Preis auf Cassette : 49,- DM Preis auf Diskette : 56,- DM 

VORTEX 

Bewahren Sie die Ringe des Saturn vor den Aliens. Schaffen Sie das??? 

Preis auf Cassette . 49,- DM Preis auf Diskette : 56,- DM 

ASTRAY 

Fliegen Sie den schnellsten Überschalljäger der Erde und vernichten Sie die Angreifer 
Preis auf Cassette : 59,- DM Preis auf Diskette 66,- DM 

Sie sehen, wir haben für jeden Geschmack etwas zu bieten. Also bestallen 
Sie noch heute bei: Heinz Hübben, Abt. Software, 5429 Marienfels/Ts. 

Versand per Nachnahme. + 5,- DM Porto - Versand per Vorkasse: Frei 




AUSLAND 

VORKASSE 

EUROSCHECK 

+ DM 5,- PORTO 











Liebe Leserin, lieber Leser! 

Ich muß heute wieder einmal ein paar Worte 


interessieren, was Sie mit Ihrem Computer 
machen, wie er eingesetzt wird, welche 
Probleme Sie damit lösen. Vielleicht macht 
der eine oder andere von Ihnen irgendetwas 
mit seinem Gerät, was alle Leser interes- 
siert. Also, schreiben Sie mir.- Sie können 
rpicti übrigens auch telefonisch erreichen. 
Am liebsten wäre mir Ihr Anruf so nach 
15.00 Uhr. Wenn Sie also irgendeine Anre- 
gung oder Kritik haben, meine Nummer ist 
06772-1261. ; 

Ich bitte Sie, machen Sie von diesen 
Möglichkeiten Gebrauch, denn es fällt uns 
sehr schwer, die GENIE DATA für Sie pas- 
send zu machen, wenn wir nicht Ihre Mei- 
nung kennen! 

Eine andere Sache: Wie Sie in dieser 
Ausgabe lesen können, haben wir den Abo- 
Preis- auf 48,-- DM für sechs Hefte gesenkt. 
Wenn Sie also schon immer abonnieren 
wollten, jetzt ist der richtige Zeitpunkt! Sie 
sparen immerhin gegenüber dem Kauf im 
Geschäft drei Mark. Und Sie haben alle 
Abo-Vorteile, Sie können kostenlos inse- 
rieren und die GENIE DATA kommt sofort 
nach Erscheinen zu Ihnen ins Haus! 

Im Software-Service finden Sie wieder 
viele Programme aus dieser Ausgabe auf 
Datenträger, so daß Sie sich auch die lästige 
Tipparbeit sparen können, wenn Sie wollen! 

Auch für die „nur Käufer" haben wir uns 
etwas einfallen lassen: Wir bieten Ihnen in 
dieser Ausgabe zum ersten Mal ein 
Software 7 Paket mit Preisvorte.il an, bei dem. 
Sie die gewünschten Programme selbst zu- 
sammenstellen können. Auch hiervon sollten 
Sie Gebrauch machen. Es lohnt sich für Sie! 


an Sie. richten. 

Wie Sie vielleicht wissen, bin ich seit 
Anfang des Jahres '85 wieder Chefredakteur 
der GENIE DATA. In dieser Eigenschaft muß 
ich mich als erstes bei Ihnen entschuldigen! 
Da die Gestaltung dieser GENIE DATA mip 
ziemlich viel Arbeit gemacht hat, bin ich 
leider nicht dazu gekommen, den Assembler- 
Kurs: für diese Ausgabe zu schreiben. Der 
Kurs geht also erst mit der nächsten GENIE 
DATA weiter. Ich hoffe, daß Sie dafür Ver- 
ständnis haben. Auch das angekündigte Ad- 
venture für Colour Genie, 4711, musste bis 
auf die nächste Ausgabe verschoben werden, 
Dafür habe ich aber, quasi, als Ersatz, einige 
andere tolle Sachen zusammengestellt, die 
Sie in dieser GENIE DATA finden. 

Da haben wir unter anderem die Fort- 
setzung unseres Pascal-Kurses, den Sie übri- 
gens gut mit der Einführung in strukturier- 
tes Programmieren koppeln können. Was ich 
persönlich sehr interessant finde, ist die Re- 
lais-Karte für Colour Genie. Sollten Sie sich 
hierfür einige Anwendung ausdenken, melden 
Sie -sich bei mir. Toll ist auch der Artikel 
über ' die dreidimensionale Grafik. 1 Mit 
diesem Programm lassen sich prima Sachen 
machen. Das sollten Sie unbedingt einmal 
ausprobieren! Haben Sie übrigens schon ge- 
wußt, daß im ROM einiger Genies ein Teil 
von einem Monitor-Programm vergessen 
wurde? Was Sie damit machen können, hat 
Herr Nold für Sie ausgetüftelt, näheres, in 
seinem Artikel. Auch den Artikel von Herrn 
Weinstein über die interruptgesteuerte Pro- 
grammierung unter NEWDOS 80 oder GDOS 
•sollten Sie einmal lesen, wenn Sie dieses Be- 
triebssystem benützen ! So etwas geht übri- 
gens auch' mit dem Colour Genie! Mehr 
darüber in unserem DOS^-Buch oder der 
nächsten GENIE DATA. 

Überhaupt glaube ich, daß diese GENIE 
DATA, immerhin die erste 1985, recht gut 
gelungen ist. Schreiben Sie mir doch mal 
Ihre Meinung zu dieser Ausgabe. 

Ich möchte Sie sowieso anregen etwas 
mehr an der Gestaltung der GENIE DATA 
mitzumachen ! Damit meine ich nicht nur, 
daß Sie verstärkt Artikel einsenden sollen, 
das natürlich auch, aber mich würde auch 


So, jetzt habe ich Ihnen lange genug die 
Zeit gestohlen! Stürzen Sie sich in die faszi- 
nierende Weit der Hard- und Software, die 
wir Ihnen in dieser GENIE DATA bieten ! ' 


P. S.: Noch etwas: Wir suchen dringend 
Artikel für Genie I/II. Wenn Sie etwas 
haben, melden Sie sich bitte bei mir! 
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WIE SCHICKE ICH 
MEINE PROGRAMME EIN 


Nehmen wir an, Sie haben etwa« bung oder Funktionserläuterung 7. 

geschrieben, von dem Sie glauben, muß jeder Einsendung beiliegen. Das Honorar vereinbaren wir mit; 
daß es auch für andere Computer- Je ausführlicher, desto besser! Ihnen persönlich, da 50,-- DM pro 
freunde interessant sein könnte. 3. gedruckter Sehe manchmal unge- 

Was tun Sie damit? Sie schicken Jeder Einsendung muß das Piro- recht sind! 
es an uns, damit es eventuell in gramm auf Datenträger beigelegt 8. 

der GENIE DATA abgedruckt werden. Diese Datenträger sollen Bis Ihre Einsendung von uns be- 
wird. Auf diese Art und Weise sein : arbeitet wurde, können zwei Wo- 

kommen die meisten Artikel zu- COLOUR GENIE : Disk oder CC. chen vergehen, danach können Sie 
stände, die Sie in der GENIE GENIE/TRS 80 : Cassette bei uns telefonisch erfragen, ob 

DAT A lesen können. GENIE III : Diskette Dir Artikel veröffentlicht wird. 

Um uns zu gestatten, Ihre Ein- GENIE 16: Diskette 9. 

Sendung zügig zu testen, und um GENIE II s : Cassette Eingesandte Artikel und Manus- 

uns die Arbeit zu erleichtern, 4. kripte können nicht zurückge- 

sollten Sie bei der Einsendung Ein Ausdruck Ihres Programmes schickt werden, 
aber einige Regeln beachten. muß so aussehen: Der Preis für den Datenträger wird 

1 . Schrift) 12 CPI Ihnen bei Veröffentlichung er- 

Legen Sie Ihrer Einsendung ein Breite der längsten Zeile-, maximal stattet (2,-- DM für CC / 5,-- DM 
Anschreiben bei, auf dem steht, 18 cm. für Disk). 


Die kostenlose KUNDENDIENST-INFORMATION 

GENIE NACHRICHTEN 


bei Ihrem Händler zu haben I 

oder anfordern bei 
HEEL-VERLAG 
Postfach 320220 
5300 BONN 3 


BESTE LL-COÜPON 
Bitte, senden Sie mir kostenlos die neueste Ausgabe 
der GENIE-NACHRICHTEN | 



PASCAL, Teil 2 

So, hier ist der zweite Teil unseres Pascal-Kurses. 
Heute bekommen Sie die restlichen Erklärungen 
vom letzten Mal und erfahren einiges über die 
Schleifen in Pascal Seite 7 

RELAISKARTE 

Wie man mit dem Colour Genie schaltet oder 
Eingänge analysiert, erfahren Sie hier. Selbstver- 
ständlich mit ausgereifter Schaltung, Platinenlay- 
out und Steuerprograimm Seite 15 

WIE SCHICKT MAN PROGRAMME EIN 
.Wenn auch Sie einmal als Autor für die GENIE 
DATA aktiv werden wollen, sollten Sie sich zuerst 
einmal unsere Richtlinien durchlesen Seite 20 

HAMURABI 

Stellen Sie sich doch einmal vor. Sie wären der 
König eines ganzen Landes. Jetzt müssen Sie ver- 
suchen, klug zu wirtschaften, das Land zu ver- 
grössern usw. Aber denken Sie daran, keinen Ein- 
wohnerverhungern zu lassen ! Seite 22 

RETTEN UND MISCHEN 

Es gibt ja so tolle Befehle, wie MERGE oder SAVE 
LINE. Schade nur, wenn man Sie nicht hat! Um 
solche Befehle zu bekommen, brauchen Sie keinen 
neuen Computer, tippen Sie einfach das Pro- 
gramm ab! Seite 26 

VERSANDSERVICE 

Wir haben einen neuen Bestellschein entworfen. 
Er gilt für Abos, Software und Bücher. Wenn Sie 
also etwas bestellen wollen Seite 29 

KAMPF DEN SPAGHETTI 

Wie der Autor so schön sagt, sollen hier nicht 
italienische Teigvyaren verunglimpft werden, son- 
dern wir wollen Ihnen etwas näher bringen, wie 
man strukturiert programmiert. Das Schlüssel- 
wort sind Struktogramme. Seite 33 


3 D GRAFIK 

Haben Sie schon einmal toll bewegte drei dimen- 
sionale Grafiken gesehen? Wenn zum Beispiel ein 
Schriftzug groß auf dem Bildschirm steht, dann 
nach hinten wegläuft und sich dabei überschlägt? 
Mit diesem Programm können Sie splche Effekte 
auf Ihren Colour Genie Monitor zaubern. v\: 

. ■ Seite 36 

RS 232 STEUERSOFTWARE 

Im Colour Genie existiert ja eine RS 232 Schnitt- 
stelle. Sie liegt nur leider brach, weil keine Soft- 
ware vorhanden ist, die diese Schnittstelle steuert. 
Hier erhalten Sie ein Maschinenprogramm, mit dem 
Sie Bytes über die RS 232 Schnittstelle ausgeben 
können. Sogar die Baud-Rate ist f rei wählbar. 

— Seite 40 

DER VERGESSENE MONITOR 
Die Genie I und II Macher haben bei vielen Geräten 
im Level IV ROM die Bruchstücke eines Monitor- 
Programmes vergessen. Wie Sie damit noch arbeiten 
können steht ab Seite 41 

GEHIRNTRAINING ' 

Lässt Ihre Konzentrationsfähigkeit nach? Wird Ihr 
Gedächtnis immer schlechter? - Keine Angst, 
wir machen hier keine Werbung für irgendwelche 
Power-Pillen! Aber mit unserem Programm können 
Sie Ihre kleinen, grauen Zellen wieder auf Touren 
bringen! Seite 42 

TAUSCH 

Hier bekommen Sie ein nützliches Hilfsprogramm 
für GDOS und NEWDOS 80. Seite 47 

PLOT 1 IM TEST 

Was dieser neue Plotter alles leistet, lesen Sie in 
diesem Artikel. Seite 52 

SCHIFFCHEN VERSENKEN 

Zum guten Schluß noch ein Spiel, das Sie wohl 
alle kennen I ; Seite 54 
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werden nur zurückgesandt, wenn ausreichen- 
des Rückporto beigelegt wurde. Jeder. Ein- 
sender erklärt sich durch die Einsendung mit 
einer Veröffentlichung des eingesandten Ma- 
teriell ln der GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


IMPRESSUM 

Copyright (c) 1984 byKu.lt Hübbon, Offset- 
druckerel und Verleg. 5429 Marlenfels /Ts. 
Nachdruck, Vervielfältigung, Übertragung so- 
wie Speicherung in EDV-Anlagen verboten. 
Bel Bauanleitungen und/oder. Programmen 
kann ftlr die Fenierfreiheit keine Qarantle 
Übernommen werden. 

Die Meinung der einzelnen Autoren' mu« 
nicht mit der des Verlages Ubereinstimmen. 
Anfragen en die Redaktion bitte nur schrift- 
lich mit beigelegtem ROckporto. 

Kündigung der Abonnements: Zu ledern Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jede* Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. ' 

Sollte die GENIE DATA aus Gründen, die 
nicht In der Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schaden und/oder Folgescha- 
den an Geraten und oder Bauteilen und/oder 
Datenverlust kann kalna Haftung Ubernom- 
men werden. Der Nachbau unserer Bauanlel- 
tungon und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
eigene Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte Vorbehalten. Es kann keine 
Gewahr dafür übernommen werden, da Adle 
verwendeten Scnaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Schutzrechten Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung -eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Bel allen Artikel-Einsendungen gehen wir da- 
von aus, daB der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Elgentü- 
pier ist. /.'r'V-':’ 

Ober Jede Artikel-Einsendung freuen wir unsl 

Honorar : ■■■■ 

Nach Vereinbarung). 

Wir gestatten Jedermann, einen Artikel aus der 
GENIE DATA zu entnehmen, und in einer 
inderan, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, dat 
an der Gestaltung nichts verandart wird, dis 
erwähnt wird, daft der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daft man uns mlndestans ein Exemplar 
der betreffenden QruckscnHft kostenlos, so- 
fort nach Erscnelnan, zur Verfogung stellt. 



BESTELLUNGEN 

AN 

Heinz u. Ralf Hübben 
Offaetdruckerei / Verlag 
Software- Verlag 
Mühlbachstrabe 2 
D-5429 Marienfels/Ta. 


Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM's im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks -selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie habenl Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfängerund Profist ■ iÄ, ■ ■ - - 

Also bestellen Sie sofort lll[ 49.--DM. SOI I 10 I OCl Ol* ilcliEl Ol 
156 Seiten stark, für Sie geballtes Wissen! T 


COLDAT ist das universell einselzbare Adreß-Verwaltungs-Programm für 16K und 32K 
Colour Genies mit einem oder zwei Disketten - Laufwerken und einem beliebigen Drucker. 

Mit COLDAT können Sie Adressen eingeben, laden, ändern, Aufkleber drucken, Listen er- 
stellen, selektieren, und, und, und, ... 

Interessant ist übrigens auch der Preis: COLDAT kostet auf Diskette mit ausführlichem 
deutschem Handbuch nur 79,- DMI 

Übrigens: COLDAT ist durch seine Bildschirm- und Drucker-Masken äußerst leicht zu 
bedienen! 


CÜLDRT 
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'Ralf M. Hübben 



Ich hoffe, das Sie sich alle inzwischen ein Pas- 
cal-System besorgt haben, und mit dem Editor 
gut klarkommen. Sollte das nicht der Fall sein, 
dann wird es langsam Zeit. 

Im letzten Teil habe ich Ihnen versprochen, 
daß ich Ihnen alle Befehle zwischen BEGIN und 
END erkläre, das werde ich anhand einiger 
Beispiele tun. Auch werden Sie wieder einiges 
Neue kennenlernen, soviel, das Sie nach diesem 
Teil , unseres Pascal-Kurses, schon die ersten 
Programme schreiben können. Nur für die bei- 
den vorletzten Zeilen habe ich kein Beispiel 
gefunden, diese erkläre ich Ihnen deshalb jetzt 
sofort. Falls Sie die letzte GENIE DATA nicht 
zur Hand haben, ich meine diese beiden Zeilen : 

read (kbd, check) 

until upcase (check)='N'; 

Die erste Zeile holt eine gedrückte Taste von 
der Tastatur und speichert sie in der Variablen 
check. Die zweite Zeile stellt den 'Abschluß 
einer REPEAT... UNTIL Schleife dar. Was es 
mit diesen Schleifen auf sich hat, können Sie 
weiter unten lesen. Es wird solange 
geschleift, bis Sie auf der Tastatur ein N ein- 
geben. Da das Programm nicht wissen' kann, ob 
Sie ein großes oder ein kleines N eingeben, 
wird vorsorglich mit dem Befehl UPCASE ein 
Großbuchstabe aus Ihrer Eingabe gemacht. 
Falls Sie irgendetwas anderes alls ein N einge- 
ben, macht das Programm mit der dritten Zei- 
le des Hauptprogrammes (clrscr;) weiter. Falls 
Sie ein N eingeben, j ist die Abbruchbedingung 
der Schleife erfüllt, und das Programm findet 
den Befehl END. der dafür sorgt, daß jetzt 
Schluß ist. 

Vielleicht sollte ich Ihnen schnell noch sagen, 
was es mit den Doppelpunkten und den Zahlen 
in den WRITELN-Befehleri in der Procedure 
Berechnung auf sich hat. Nehmen wir zum Bei- 
spiel den Befehl . 

writeln (er 1 1:2); 

E ist die Variable in der das Ergebnis der 
Berechnung abgelegt wird. Die erste Zahl nach 
dem Doppelpunkt (11) gibt an, wieviele Stellen 
ausgegeben werden. Die zweite Zahl (2) gibt 
an, wieviele Stellen davon Nachkommastellen 
sind. Ein entsprechender Basier Befehl würde 
also so äussehen: 


PRINT U S I N G "////////##////.#//"; E 

Sollte das bei Ihrem Pascal nicht möglich sein, 
weil Ihr Pascal keine reellen Zahlen verarbei-. 
ten kann, müssen Sie die Deklaration der Vari- 
ablen in der Procedure auf Integer ändern. Das 
sieht dann so aus: 

var a,b,e • ’ rinteger; 

Jetzt lassen Sie die Zahlen und Doppelpunkte 
weg, das ein WRITELN so aussieht: 

wri'tein.--(a); 

Jetzt sollte das Programm auch auf einer In- 
teger-Versioneinwandfrei laufen. 

Bevor wir uns mit dem neuen Stoff Von 
heute befassen, hier noch eine kleine Anmer- 
kung. Die Zeit wird kommen, in der Sie Pro- 
gramme in Pascal schreiben. Wenn Sie dazu 
einen der Compiler, die ich in der letzten 
Ausgabe erwähnt habe, benutzen, schicken Sie 
uns doch Ihr Programm als Artikel. Wir von 
der GENIE DATA würden uns freuen, wenn wir 
ab und zu den einen oder anderen Artikel in 
Pascal veröffentlichen könnten. Schreiben. Sie, 
uns doch auch mal über Ihre Erfahrungen mit 
Ihrer Pascal Version, Was Ihnen gefällt, und 
was nicht. Oder wenn Sie Probleme haben. 
Diese könnten wir dann in der GENIE DATA 
zur Diskussion stellen. Vielleicht können wir 
auf diese Art und Weise genug zusammen-; 
bringen, daß wir eine eigene Pascal-Seite ein- 
richten können. Das wäre doch sicherlich auch 
in Ihrem Interesse. 

So, jetzt wollen wir uns aber endlich dem 
neuen Stoff zu wenden. Ich habe einige 
Programmbeispiele für Sie gemacht, an deren 
Beispiel ich Ihnen einiges neue erklären will. ' 
Also, jetzt geht's los! 

Das erste Programm (EINGABE AUSGABE) 
befasst sich mit den Ein- und 
Ausgabe-Befehlen der Sprache Pascal. Diese 
Befehle kennen Sie auch im Basic, nämlich 
PRINT und INPUT. Mit PRINT können Sie ir- 
gendetwas ausgeben und mit INPUT können Sie 
den Rechner veranlassen, eine Eingabe abzu- 
warten. Das geht natürlich auch in Pascal. 
Hier benutzt man folgende Befehle: 

■ Eingabe: 

READ, 

READLN W 





MIT DIESEM FANTASTISCHEN SPIEL haben Sie es nun geschafftl - Sie sind mitten unter Ihnen. 
Sie können den rasanten Befehlen des Computers entgegenwirken. Es geht auf Gedeih und Verderb. 
Drängen Sie Ihren Gegner ins Verderben. - Er versucht das gleiche mit Ihnen. - Außerdem wird das 
Spiel immer schneller. - Treiben Sie Ihren Gegner in die Enge! - Lassen Sie ihn explodieren I - Bei 
1000, 2000, 4000, etc. Punkten gibt es jeweils ein extra Fahrzeug. - Falte- ihnen der Gegner zu gut ist, 
können Sie mit gedrückter SPACE-Taste den Gegner überholen und evtl, vernichten. 

Dieses Spiel ist sehr aufregend, spannend zum bersten und nicht leicht zu spielen - die Rekordliste 
wird es zeigen. - Man könnte mit diesem Spiel einen DEUTSCHEN MEISTER Herausstellen I , 

PREIS für Cassette NUR DM 49,-] 


TERRA * ein Action-Spiel, welches Sie zum Wahnsinn treibt I - Feindliche Raumschiffe greifen 
die Erde an. Sie müssen sie blitzschnell in ihr Fadenkreuz bekommen und abschießen mit Ihren Laser- 
strahlen. Sind alle Angreifer zerstört, dann kommen noch zwei weitere Angreiferwellen. Im Anschluß 
daran erhält man einen Bonus, und die Punktezahl wird gezeigt. - Danach kommen wieder neue 
Angreifer, wobei deren Abstand, ihre Anzahl und die Geschwindigkeit des Fadenkreuzes von Runde 
zu Runde verändert werden. - Wird die Erde von einem Raumschiff gerammt, dann explodiert sie. 
Retten Siedie Erde! Das Spiel hat Sprachausgabe über Fernsehlautsprecherl ' 

Eine tolle Bereicherung Ihrer Sammlung auf Cassette zu einem Superpreis von DM 39,--. 


TANK MAZE * DAS SPIEL DER SPIELE! Dieses Spiel sollten Sie natürlich auchhaben. -Sie fahren 
Ihren Panzer in Stellung und lauern auf die gegnerischen Panzer und ballern dann los. - Es kommt 
bei diesem Spiel eine wahre Gefechts-Situation zustande, die den Spieler derart mitreißt, so ähn- 
lich; wie bei TRONN, daß man um sich herum einfach alles vergißt, und drauflos ballert, daß es 
nur so kracht und rumst! Von Spiel zu Spiel wird man immer besser und der Spaß wird größer. 
Tolle Grafik mit 3D-Effäkten, toller Sound. - Übrigens tolle Grafik und wirklich toller Sound ist 
auch bei den anderen Spielen vorhanden I J 

Dieses wahrhaft tolle Spiel erhalten Sie bei uns auf Cassette für NUR DM 49,-Jwauf Disk. DM 56,--' 




JUMP * EIN GANZ FANTASTISCHES SPIEL, was doch auch ganz schön nerven kann. - 
Steuern Sie ein kleines niedliches Männlein auf einem laufenden Fördeiband jeweils eine Etage höher 
und verhüten Sie in die Löcher zu fallen. Bei einem Sprung nach oben, dürfen Sie nicht gegen die 
Decke springen, denn dann fällt das Männlein um und sieht einen Kreis voller Sterne. - Aber er läßt 
sich nicht verdrießen und steht schnell wieder auf usw. - Je höher man es schafft, bekommt man et 
mit Gespenstern zu tun und es lauern viele Gefahren. - Dann wird es schneller und noch schlimmer. 
Aber Sie werden es selbst sehen wie es weiter geht. s 

Tolle Grafik und herrlicher Sound Nur auf Cassette DM 39,- 

ALLE SPI ELE SIND BRANDN EU und jede Bestellung wird schnellstens an Sie per NN abgeschickt 
PR E IS Postgebühren u. NN-Kosten. - Versand bei Vorkasse frei I An Fa. Hübben, D-5429 Marienfels/Ts 
«••••••*••»•*•••«••*»•*••*••••••«*••«•••*«««*»«#»« Mühlbachstraße 2 


TT 

ii 1 

1 1 

. .11. 
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Ausgabe: 

WÜHL, 

WRITELN 

Wir gehen jetzt einmal rückwärts vor und 
schauen uns als erstes die Befehle WRITE und 
WRITELN an. . 

Mit WRITE geben Sie etwas aus, ohne nach 
der Ausgabe einen Zeilenvorschub zu erzeugen. 
Das entspricht dem Basic-Befehl PRINT; . Sie 
wissen ja, daß das Semikolon in Basic dazu da 
ist, damit es nach dem PRINT sofort und ohne 
Leerzeichen weitergeht. Mit WRITELN geben 
Sie etwas aus, und nach der Ausgabe wird ein 
Zeilenvorschub erzeugt, d. h., der Cursor geht 
nach der Ausgabe an den Anfang der nächsten 
Zeile, 

Ähnlich verhält es sich mit READ und 
READLN. Bei READ und READLN wartet der. 
Computer, daß Sie etwas über die Tastatur 
eingeben. Wenn Sie nach der Eingabe Return 
tippen, weiß der Computer, daß Ihre Eingabe 
beendet ist, und das Programm wird fortge- 
setzt. Bei READLN geht das wie im Basic mit 
INPUT. D, h., hach jeder Eingabe fängt der 
Computer eine neue Zeile an. Wenn man aber 
READ benutzt, fängt der Rechner keine neue 
Zeile an, sondern der Cursor bleibt hinter Ihrer 
Eingabe stehen. 

Tippen Sie jetzt das Programm EIN- 
GABE_AUSGABE ab und lassen Sie es laufen. 
Schauen Sie sich während des Programmlaufes 
das Listing an, und versuchen Sie, das oben ge- 
sagte, anhand des Programmlaufes zu verste- 
hen. Lassen Sie bei Ihrem Pascal unter Um- 
ständen die Zahl hinter der String-Deklaration 
weg (Siehe Pascal-Kurs, Teil 1.). 

Eventuell müssen Sie den Befehl zum Bild- 
schirmlöschen (CLRSCR) an Ihr Pascal an- 
passen. 

Sie sehen, daß ein Text, der ausgegeben 
werden soll, eingefasst in Klammern und Abo- 
strophe ist. Das könnte bei Ihrem Pascal an- 
ders sein, sehen Sie bitte in der Bedienungsan- 
leitung nach. Die Variable, in der die Eingabe 
gespeichert wird, steht nur in normalen Klam- 
mern. Also, INPUT A sieht in Pascal so aus: 

READLN (A); 

Jetzt schauen wir uns einmal die verschie- 
denen Möglichkeiten an, in Pascal eine Schleife 
zu programmieren. 

Tippen Sie bitte einmal das Programm 
SCHLEIFE_MIT_FOR ein. 

' Als erstes müßte Ihnen der Doppelpunkt vor 
dem Gleichheitszeichen auffallen. Diese Art 
des Gleichheitszeichens stellt eine Wertzuwei- 


sung dar. Gelesen wird := als gesetzt gleich. 
Diese Form wird immer verwandt, wenn wir 
irgendetwas einen Wert zuweisen wollen, in un- 
serem Beispiel ja der Variablen I. Das normale 
Gleichheitszeichen (=) wird zum Beispiel in Ab- 
fragen benutzt, also dann wenn etwas wirklich 
gleich ist, oder wenn die Frage nach wahr oder 
falsch beantwortet werden soll. Das normale 
Gleichheitszeichen wird auch bei der Deklara- 
tion von Konstanten verwendet, denn da ist ja 
auch etwas wirklich gleich. 

Also: Bei einer Zuweisung verwenden wir := 
und bei Gleichheit verwenden wir =! 

Nach dem Startwert für die Schleife folgt 
TO oder DOWNTO. TO wird benutzt, wenn der 
Startwert . für die Schleife kleiner ist als der 
Endwert (z. B. 1 TO 100), DOWNTO wird be- 
nutzt, wenn der Startwert größer ist als der 
Endwert (z. B. 100 DOWNTO 1). 

Jetzt folgt der Endwert und dann das Wort 
DO, um dem Computer zu sagen, daß es jetzt 
losgeht. Nach DO folgt kein Semikolon! Sonst 
läuft die Sache nicht ! 

Nach DO kommt entweder ein BEGIN; also 
die Schleife, geht hier los, dann folgen die Be- 
fehle und die Schleife wird mit END; abge- 
schlossen (siehe Programm SCHLEIFE_,MIT 
_FOR), oder es folgt ein Befehl, der geschleift 
wird (siehe Programm SCHLEIFE_MIT_FOR 1). 

Als nächste Schleife währe die Schleife mit 
WHILE zu nennen. Diese Schleife wird solange 
ausgeführt, bis eine Bedingung erfüllt ist. Das 
sieht dann im Prinzip so aus: 

WHILE Bedingung DO Anweisung 

/Anweisungsblock 

Hieran sehen Sie, daß hinter DO sofort eine 
Anweisung stehen kann, oder daß ein ganzer 
Block von Anweisungen kommt. Dieser Block 
fängt dann wieder mit BEGIN; an, und endet 
mit END;. Tippen Sie jetzt einmal das Pro- 
gramm SCHLEIFE MIT WHILE ein. Wenn Sie 
es ausprobieren, erkennen Sie, daß dieses Pro- 
gramm erst .dann endet, wenn Sie eine Zahl 
kleiner Null eingeben, also wenn unsere Bedin- 
gung erfült ist. Auf deutsch würde die Zeile 
ungefähr so lauten: 

SOLANGE eingabe >= 0 TUE 

Die letzte Schleife die wir uns ansehen, ist die 
REPEAT..UNTIL Schleife. Die REPEAT..UNTIL 
Schleife können wir uns bildlich etwa so ver- 
stellen: 

REPEAT . 

Anweisung 1 
Anweisung 2 



U \ \U* 17 H FÜR COMMODORE C 64/SX 64 

PERSONAL COMPUTER MUSIC 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodöre 
Design, einem Interface-Modul und zugehöriger Software. Gemeinsam- mit dem 
Commodöre VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. 


Komplett-Paket bestehend aus. 


KEYBOARD , 

4- 49 Tasten,- 4 Oktaven C-C 
PROFIFORMAT 

— Gehäuse aus stoßfestem Kunststoff 
im Commodore-Design 

— Interface-Modül mit Verbindungs- , 
kabel, anschlußfertig 


SOFTWARE 

— auf 5W" Diskette 

— Programm MONO 64 — 
monophoner Synthesizer 

— Programm POLY 64 — 
polyphones Keyboard 

— Klangfarben direkt am PC 
veränderbar 


EINFÜHRUNGSPREIS DM 495 


inkl. MWSt. 


Direkt ab Werk, noch heute bestellen! 


BESTELLCOUPON 

Das WERSIBOARD MUSIC 64 ist Klasse 

□ Ich bestelle zu sofortiger Lieferung das 
WERSIBOARD MUSIC 64 zum 
Einführungspreis von DM 49S,- 

- zuzgl, Versandselbstko3ten — . 

gewünschte Zahlungsart 

□ Scheck ist beigefügt ■ 

□ per Nachnahme 


Orgel- und Piano-Bausätze 
Industriestraße 
5401 Halsenbach 
Telefon (06747) 7131 
Telex 4 2323 


Datum 


Umerschiilt 


Bastellcoupon pbtrennen und an Werai senden 
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Das Warten hat sich gelohnt. Das GENIE 16 ist ein Profi-Computer zum Einsteiger-Preis. 
Mit einem riesigen Software-Angebot. Denn das GENIE 16 ist PC-kompolibel. 

9 16-bfl-Mibroproiessor 8086 • AY/DOS Betriebssystem 

• 128K RAM (bh 768K RAM Speicher ^ (erweitertes MS/DOS) . 

I ausbaubar) • Eingebauter Lautsprecher 

• MX ROM • Irgenemetrisdies Design 

• 18-Farben • PC-kom pari bei 

• 2 1 360K Laufwerke 9 Deutsche Tastatur 

WPS Pestfach 2105 


Automatische Cassettenrecordersteuerung 

mit Einbauanleitung 

Colour Genie Joy Stick DM 79,80 

für Spiele, die sonst mit der Tastatur 

gespielt werden 


DM 24,80 


SOFTWARE-KATALOG Datenrecorder-Probleme? 

— — Muß nicht sein I 

ANFOR DER N ! Mit unserer Zusatzplatine werden die Daten digitalisiert 

- In jedem normalen Recorder einzuschleifen I 

>' s>'V ' | Mit Einbaüplan Modul DM 98,-- 

Leveimeter Nachrüstsatz kompl, mit Einbau- 
Commodore VC 20 + VC 64 * 

#Yi , Cassetteninterface Vers. 1 mit Schaltern mit Bedienungs- 

anleitung (wird nur auf den Port gesteckt). 

' ' . * Für alle handelsüblichen Recorder DM 29,80 

mit automatischer Motorsteuerung für den Recorder. 

Versand: Entweder per Nachnahme oder per Vorkasse Mit Bedienungsanleitung DM 36,80 

auf unser Konto 66811 bei der Stadtspa rkasso Osnabrück ... .... . . , , 

(BLZ 265500 01 ) Light Pen fur c 64 m Vorbereitung ... 

Bel Bestellungen ab DM 50 .-- Porto und Verpackung frei. NDR -CompUter-BausätZe bei UnS I 
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var 


Schleife mit WHILE 


var 


begin; ■ 

-wh i-1 e ei-nqabe >= <> do 

begi n ; V." 1 ■ - y-'V;. • ,/'• 

writeln (’Beben Sie eine Zahl ein."); 

writeln <'£106 Zahl kl, einer Null beendet das Programm 
write ( ’ Ihre Eingabe ? ’ ) ; 
readln (eingabe); '■ i 
; writeln; . 

end ; . yt ' 

writeln; ■; 

writeln ( ' Ende • des Programms. ' ) ; 
end. 


program Schleif e__mi t_REPE.'AT_UNTIL; 


var 


repeat 

write (^Geben Sie eine Zahl ein! 
readln (zahl ) ; 

ergebnis := ergebnis + zahl; 
writeln (-'Ergebnis plus Zahl = ' 
writeln; 

unt i l ergebnis >=1000; > 


ergebnis) ; 


writeln;. 

writeln (-"Ende des Programms 
end. - 
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Der „COMPUTER-KATALOG 1985 "aus dem HEEL VERLAG *) 


Es wurde großer Wert 
darauf gelegt, den Umgang 
mit diesem Standardwerk so 
einfach wie möglich zu 
machen. 

Erstmals wurde in diesem 
Jahr ein umfangreiches 
Register mit in den Katalog 
aufgenommen. 

Der Leser hat hiermit die 
Möglichkeit, in kürzester 
Zeit auf die gesuchten 
Informationen zuzugreifen. 


mtm 




Der COMPUTER KATALOG 
1985 ist mit Uber 750 Ge- 
räten die Kaufberatung für 
den deutschen Computer- 
Markt. Nicht nur Micro- 
Computer, sondern auch 
die wichtigsten Zusatzge- 
räte, Drucker und Plotter, 
werden mit Bild, den fecHn. 
Daten, Preis sowie einer 
sehr leicht verständlichen 
Kurzbeschreibung vorge- 
s teilt. Bei den Micro- 
Computern ist sogar die vom 
Hersteller angebotene Soft- 
ware aufgeführt. 


'„J 




Speziell für Einsteiger und 
Neulinge bietet der Com- 
puter-Katalog einen beson 1 
deren Service: 

wichtigsten Begriffe der Computerei mit einfachen Worten erklärt. 


w.yl 




Computer-Katalog 1985; 360 Seiten, Format DIN A 4, über 600 Abb.; Preis DM 26,80 
erschienen im F. Ch.-Heel Verlag, Königswinterer Str, 528-536, 5300 Bonn 3. 


) Anmerkung d. Redaktion; '.Sehr zuempfehlen [ 
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•'v.'.v. 

.V.'.v.*« 
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•*£S»! 
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ebenfalls auf der Karte. Diese sollten aber 
nur für Testzwecke benutzt werden, um das : 
Netzteil Ihres Computers nicht zu sehr zu 
strapazieren. 

Nochmal in aller Kürze: Die Karte 
bietet acht Ausgabeleitungen, acht Eingabe- 
leitungen und einige Spannungen. 

Die Platine ist im Europaformat gefer- 
tigt und einseitig gehalten. Die Führung der 
Leiterbahnen wird lediglich am Port ein 
wenig eng. 

BESTÜCKUNG 

Wenn Sie die fertig geätzte und gebohrte 
Platine haben, legen Sie. sie bitte mit den 
Löchern für die Portleitung nach links vor 
sich hin. ln die Lochreihe ganz links kom- 
men die Drähte die zum Port führen. 
Danach kommt, eine Reihe Lötnägel, die 
aber auch entfallen kann, sie ist lediglich 
gedacht, um an alle Portleitungen leichter 
heranzukommen. Dann kommt unten eine 
Drahtbrücke. Jetzt folgen acht; 3,3 KOhm 
Widerstände, acht Transistoren Typ BC 238 
B o. ä. und acht Dioden Typ ITT 4004 o. ä. 
Die Dioden werden : stehend eingebaut, und 
zwar so, das die Seite mit Ring nach, oben,; 
von der Platine weg zeigt, letzt folgen acht 


ln der letzten GENIE DATA haben wir die 
Relaiskarte für Colour Genie ja schon ange- 
kündigt.; Als darin aber endlich ein fertiges 
Gerät zur Hand war, habe ich beschlossen, 
die Sache mit dieser Karte auf die Spitze .zu 
treiben. Deshalb erscheint der Artikel in 
zwei Teilen. Den ersten Teil haben Sie .hier 
vor sich. Er behandelt den Aufbau der Karte: 
und stellt Ihnen ein Steuerprogramm zur 
Verfügung, mit dem die Relais geschaltet 
werden können. In der nächsten GENIE 
DATA kommt dann die Bauanleitung für den 
GENIE DATA ROBOT ! . Ja, Sie haben schon 
richtig gelesen, wir haben einen kleinen 
Roboter gebaut, der über die Relajskarte 
gesteuert wird. Also, Robot-Bauarileitung 
und die passende Steuersoftware in der 
nächsten GENIE DATA. 

., letzt wollen wir uns aber zuerst einmal 
der Karte zuwenden. 

Die Karte Wird an den Paralellporf des 
Colour Genie angeschlossen, gerade so, wie 
ein Drupker. Sie stellt Ihnen acht steuerbare 
Relais zur Verfügung, mit denen etwas ge- 
steuert werden kann. Weiterhin haben Sie 
auf der Karte, acht 'Eingabeleitungen, mit 
denen Sie Daten an den Computer geben 
können, +12V, +5V und GND finden Sie 




v.v. 


Der SOFTWARE-KATALOG ist zum Preis von DM 29,80 
im Buch- und Zeitschriftenhandel erhältlich. 

Software-Katalog 1985, 650 Programme, Format DIN A 4, Preis DM 29,80, 
erschienen im F. Ch. Heel Verlag, Königswinterer Str. 528-536, 5300 Bonn 3 
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ERSTE MARKT -ÜBERSICHT 
für IBM-kompatible SOFTWARE 


Schon heute bemühen sich die Hard- und So ft wäre- Herste II er weltweit ihre Computer und 
Programme IBM-kompatibel zu gestalten. IBM-kompatible Software ist daher für die ganze 
Computerbranche richtungsweisend geworden. 


Diesem Trend folgend 
erschien im Heel Verlag 
erstmalig der , , Software- 
Katalog 1985". Mit über 
650 Programmen ist der 
Katalog die größte und 
ausführlichste Markt- 
übersicht auf diesem Ge- 
biet. 

Der Software-Katalog 
gliedert sich in drei Teile: 

1 > Systemsoftware 

2. Branchenneutrale 
Software 

3. Branchenspezifische 
Software 

Außer einer Vielzahl von 
techn. Angaben, wie z.B, 
notwendige Hardwarekonfi- 
guration oder Programmier- 
sprache, ist zu [edern Pro- 
gramm die Bezugsquel le, 
eine Kurzbeschreibung und 
der Preis angegeben. 

Anhand des Software- 
Kafaloges kann der Com- 
puterbesitzer die für sei- 
ne Belange optimale 
Problemlösung finden, z.B 
Rechnungen schreiben, , 
Kundendatei erstellen, 
Patientendaten auswerten 
oder das Lager überwachen 
u.v.m. 
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Wenn Sie die Platine äufgebaut haben, 
geht es an's testen. Überprüfen Sie die Löt- 
seite der Platine noch einmal genau, ob Sie 
nicht versehentlich zwei Augen 
zusammengelötet haben, die besser getrennt 
sein sollten. Jetzt können Sie die Platine an 
den Paralellport anschliessen. Schalten Sie 
den Computer kürz ein und halten Sie Aus- 
schau nach aüfsteigenden Qualmwölkchen. 
Sollten Sie solche entdecken, haben Sie eig- 
nen Fehler gemacht, und warscheinlich hat 
sich dann der PSG im Colour Genie für im- 
mer verabschiedet. Wenn keine Wolken auf- 
steigen, sind wir schon ein schönes Stück 
weiter. 

Schalten Sie den Computer wieder' ein, 
und lassen Sie folgendes Programm laufen: 

10 SOUND 7.64 : Rem Port A auf Ausgabe 
20 FOR 1=0 TO 255 
30 SOUND 14,1 : Rem Relais schalten 
40 FOR U = i TO 100 : Rem Verzögerung 
50 NEXT U : NEXT 1 

Jetzt sollten alle Relais freundlich ge- 
klickert haben. Wenn alles geklappt hat, 
können wir die Eingabe-Funktion testen. 

10 SOUND 7,64 

20 OUT 248,15 Rem Port B für Eingabe 
30 X=I.NP(249) : Rem Abfragen ' . 

40 PRINT X : GOTO 30 

Starten Sie bitte dieses Programm. Auf dem 
Bildschirm sollte jetzt eine 255 durchlaufen. 
Schliessen Sie jetzt einen Draht an den Stift. 
GND (obere Reihe, rechts) an. Berühren Sie 
mit diesem Draht jetzt den Stift B7 (auf der 
Platine gekennzeichnet, direkt nebenan). Die 


Relais, 1 mal UM, 6V, 50 Milliampere. Wir 
haben Relais vom Typ 4100 benützt, das 
spielt aber im Prinzip keine Rolle. Sie 
sollten lediglich bei den Relais darauf 

achten, das die Anschlußwerte stimmen, und 
das die sechs Pins, in die Platine passen. 
Wenn wir uns die sechs Pins der Relais, 
betrachten, müssen diese, so belegt sein: 

Oben, links: Kontaktstift 

Oben, mitte: Spule 

Oben, rechts: Ruhekontakt 

Unten, mitte: . Spule 

Unten, rechts: . Arbeitsköntakt 

In alle Löcher, die jetzt noch auf der Plati- 
ne frei sind, kommt ein Lötnagel. Sie haben 
dann, wie schon erwähnt, ganz links die 
zwanzig Portleitungen. Oben die acht Einga- 
beleitungen B0 bis B7 und direkt daneben 
GND. Rechts unten haben Sie nochmal +5V. 
Die drei Reihen von je acht Lötnägeln sind 
die Schaltleitungen der Relais. Die erste 
Reihe ist dabei der Kontaktstift der acht 
Relais, die nächste Reihe ist der Arbeits- 
kontakt und die letzte Reihe ist der Ruhe- 
kontakt. sollten Sie noch Fragen zur Be- 
stückung haben, dann sehen Sie in Bild 1 die 
fertig bestückte Platine. Tabelle 1 zeigt 
Ihnen die Belegung des Paralellport. 

Alle benötigen Bauteile finden Sie in der 
Stückliste. 

Noch eine Anmerkung. Sollten Sie Angst 
haben, daß die Selbstinduktionsspannung der 
Relais beim Abfallen, die Dioden überwin- 
det, können Sie auf der Lötseite der Platine 
über die Spule noch eine Diode legen, die 
die Relais beim Abfallen kurzschliesst. 


BILD 1 


Bestückte 

Platine 





' 



18 GENIE DATA 


KLEINANZEIGEN 


SUCHE GENIE DATA Nr. 2, COLOUR GENIE 32K, Dop- NEUI COLOUR GENIE* PROGRAMM-Cass.-Verw.l 
3+4. U. Mast, W.-Maybach- peldisk. 360K, DFÜ-Akustik- Alles ü.d. Mond mit Mond- Wer hat d. Progr. aus d. Genie 
Str. 9, 7303 Neuhausen/F. koppler AC-3, Stardrucker phasengrafik, Zeiten der Neu- Data Heft 4/83 abgetippt 

■ Gemini 10X, Software auf Voll- u. Halbmonde, Auf- u. u. hilft mir, die Fehler- 

32K-CG EG 2000, Rec., Disk, kompl,' mit allen RS- Untergang v. Sonne und meldungen zu beseitigen? 
Software, Preis VB, Tel .0541/ 232 und ser. Schnittst.-Ka- Mond u.v.a.m. für 900 Jahre Tel. 030-81 14569 

124185,' beln, absolut neuwertig zu u. jeden Ort der Erde. 32 K, 

verkaufen. PREIS: VB. DM 49,-. Info gg. Rück- SUCHE billiges CG-Fioppy! 

SUCHE GENIE DATA Nr. Tel. 07053/6074. porto b. H. Schumacher, A. Becker, Zur Steinbeck 34, 

1-4 T. Wagner, P.-Klee-Str. 42 Oberhausen 1, Eichstr. 40. 5620 Velbert 1 . 

118, 5090 Leverkusen 1 . " • • •. ■ • 

/_;• VERKAUFE Siemenslauf- 
werk 40 sp/dd 370,00 DM, 
VERKÄUFE Expander für 80 sp/dd slim DM 570,- 
MORSEKURS für CG, Info VG I von RB-Elektronic. wegen Systemwechsel. 

0,80 DM, K. Müller, Castro- G - Dre Y er - TeL06121/508218 Tel. 0221/501466! 

per-Str. 218, 4350 Reck- 

linghausen. TRS-80 Ml, L2 48K Disk. 

COLOUR GENIE + 32K + Doubler, Softw., NEDOS 80 

BASICODE-2 Hardware für EG 2000, 1 Jahr alt + Lit. Genie-Rec. + Joystick + 50 Textverarbeitg. Fortrain, Vi- 

VG I gesucht. Grajewski, Ze- + Softw./VB DM 450,-. Progr. für 500,- DM sicalc usw. Literatur. VB2200 

dernweg 29, 4220 Dinslaken. Tel, 09523/6422 Tel. 02551 /3916 DM. Tel .02106/72394 


COLOUR GENIE EG 2000 
32K (neuwertig) + Bücher 
+ Software DM 350,-. Dop- 
pelfloppy - EG 2300/2-Disk- 
Basic (neuwertig) geg. Gebot. 
Tel. 09104/621. 


SUPER-BASIC 1 


Auf Diskette nur DM 99,- 
Auf Cassette nur DM 89,- 

:rfc rrmilAr ,HR VOm&SSE Euro-Scheck + DM 5,- Porto 

C0MPILIERTES AN 

Nur,Ür32K Heinz | Ralf Hübben 

der neue Maßstäbe setzt! 300 mal schneller Off 1o“e-veri^ rlag 

Für DISKETTE und CASSETTE I D-?42?MarienfeU/Ts. 


COLOUR GENIE, Kaufm. Progr., DFÜ, Drucker, EPROMS’s. 

Kontakte gesucht! H.-J. Winterscheid, Bennauerstraße 1, 5300 BONN 1 
Telefon 0228/224353. 


*** RAUM RÜSSELSHEIM COLOUR GENIE-Anwender sucht 
gleichen. - Telefon 06142/43746. 


RAUM ROSENHEIM *** GENIE H-Besitzer sucht Erfahrungs 
usch. - Telefon 08071/4228. 


ÜBER DIE GRENZE COLOUR GENIE-Kontakt zwischen 
Hardenberg NL und Nordhorn, Lingen, Meppen *** 
A. Gosse, Eiberhof 6, NL 7772 GM Hardenberg, Niederlande. 

*** RAUM HAMBURG »** Jürgen Gratz, Höperfeld 11, 2050 Hamburg 
80, Colour Genie, Eprommer, Cartridge, Betriebssystem, DV, MATH, 
Fortran. 

*** RAUM KONSTANZ *** GENIE I + II-Anwender zwecks Erfahr- 
ungsaustausch gesucht von: Ronald Stöhr, Buhlenweg 31, 7750 Kon- 
stanz, Tel. 77888 ! 






255 sollte sich m 127 verwandeln. Bet jedem 
der restlichen sieben Stifte muß jetzt eine 
andere Zahl erscheinen. Und zwar von 
rechts nach links: 127, . 191, 223, 239, 247, 
251. 253 und 254. 

Damit sind die Tests schon abgeschlos- 
sen. Wie man die Karte abfragt und an- 
spricht, können Sie aus den beiden Pro- 
grammen oben entnehmen. Dabei gilt, die 
Relais werden durch einzelne Bits an- und 
ausgeschaltet. 

Nachstehend finden Sie ein. Steuerpro- 
grarnm für die Relais, mit denen alle acht 
Relais getrennt programmiert werden kön- 


nen. Das Programm erklärt sich selbst, Sie 
als „alter Profi" kommen damit sicher leicht 
zurecht. 

Ich wünsche Ihnen viel Freude am Schalten! 
STÜ CKLIST E 

1 Stecker, passend für Paralellport 
.8 x 3,3 KOhm 
8 x BC 238 B. o. ä. 

8 x ITT 4004 Dioden 
8 x ; Relais, 1 mal UM, 6V 
, max. 50 Milliampere 
54 Lötnägel 

Eventuell 8 x 1 N 4148 Dioden für Spule 



TABELLE 1 


Belegung des Paralellport PIN 


15. A 5 

16. A 0 

17. A 4 

18. A 3 

19. +12 Volt 

20. Ground 


RELAISPLATINE LAYOUT 






AUS UNSEREM „SCHATZKÄSTLEIN”. AUF cassette FÜR COLOUR GENIE 
zu beziehen aus dem HAUSE H. und R. HÜBBEN, Miihlbachstraße 2, D-5429 Marienfels / Ts. 

*•##**#*•*##**•* * 9M*-********************-****-»*** ■*•*** «•*****» fr#**#*#******#***-* 


ORIGINAL TCS -PROGRAMME 

Sound Editor 

Flugsimulator 

Orgel 

Lunar 

Empire 

BASIC + 

Wurm 

Screen-Printer 
Kong 32 
Composer 
Eis 

Coltex 

Colour Compiler 

Co 1 rot 

Plott 

Death 

Netzo 

Tausendfuß 

Deathtrap 

Panzer 

Shaper 

Grafik-Editor 

Mampf 

Empire 

Tutor 


SONSTIGE PROGRAMME 


LiiS 
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Pr ogr amm- Ausdruck 
Rel ai skarten'steüerung 

10 CLS : COLOUR X 

2 i i PR I NT " ***************** *****.** 
****************"; 

30 PRINT"* 

. •*"; 

40 PRINT"* RELA ISKARTEN-ST 

EÜERUNG ; 

50 PRINT 1 '* 

■ *" ; ' 

60 PR INT " ************************ 
****** ****** ****'■ 

70 PR INT §400, " Programm u 

nd Karte von:" 

80 PRINT: PRINT" Ralf 

M. Huebben PRINT 

90 PRINT" <C) 1985 bv GEN 

IE; DATA" 

100 A*=INKEY*: IFA*=" " THEN100 
1 10 CLS 

120 ..PR INT "Geben Sie die Startwert 
e vor. " 

130 PRINT" : — — — t-t: — 

— — " : PR I NT : PR I NT 

140 PRINT “TAKTRATE" 

150 PR INT "Von 1 bis n / 1 = Sehne 

11 - n = Langsam" 

1 60 PRINT: INPtJTTR 
170 PRINT: PRINT 

180 PRINT" Anzahl der Schaltzyklen 

"SPRINT 

190 INPUTS Z 

200 D IM ZYISZ+1 ):>□=! 

210 CLS , ; 

220 PRI NT"Programm-Auswahl " 

230 PRINT 

■.r-r-.rr — — ; — 1 " SPRINT 


240 PRINT" 

1. 

. . Zyklus 

eingeben" 

660 

PRINT" 1 2 3 : , 

250 PRINT" 

2. 

. . Zyklus 

abarbei te 

7 

8" f 

n" 




670 

PRINT" ee ee ee 

260 PRINT" 

3. 

. . Zyklus 

si mul i ere 

ee ee" 

n" 



‘ ‘ ; . , j ' 1 

680 

PRINT"# ■ ii# ■ ||# ■ 

270 PRINT" 

4. 

. .Zyklus 

ausdrucke 

II# * 

II# ■ 4 " 

n" 




690 

PRINT"# -II# -II# " 

280 PRINT" 

5. 

. .Zyklus 

1 i sten " s P 

II# 

-II# -II" 

RI NT 




700 

PRINT" üü üü üü 


290 PRINT" 6. ..Programmende" 

300 PR INT SPRINT SPRINT 

__ . — — - . — — — — 

310 PR INT "Was moechten Sie?" 

320 A*= INKEY*: IFA*=" "THEN320 

330 ÜNVAL < A*) G0T0350, 520, 650, 800, 

900,980 

340 GOTO 210 

350 CLS 

360 PR INT "Eingabe" 

370 PRI NT " 

— "SPRINT 


380 PR INT "Letzte Eingabe in Schri 
tt " ; POt-1 

390 INPUT "Eingabe Starten bei"; PO 
400 PRINT:PRINT"Tippen Sie 1 fuer 
Relais AN und 0 fuer" 

410 PRINT"Relais AUS." 

420, G0SUB990 
430 F0RI=0T07 

440 PRINTS 920, "Wert fuer Stelle”; 
I' ; '3, 

450 A*= INKEY*: 1 FA*= " " THEN450 
460 IFA*=" 1 " THENZY ( PO ) =ZY (PO) +2ÄI 
: Ü0T0500 

470 I F A*= "0" THENZY <PQ)=ZY ( PO ) AND ( 
255-2ÄI ) : G0T0500 
480 1 FA*=" * "THENGOT 0210 
490 G0T0440 . ( Cq. 

500 G0SUB990: NEXT I L G^a ^ 

510 P0=F'0+1 : G0T0420 
520 CLS 
530 PRINT "Zykl us abarbeiten" 

540 PRINT" — --r 

" : PR I NT 

550 PRINT"Tippen Sie eine Taste z 
um Starten . " 

560 PRINT"Mit E koennen Sie unter 
brechen . " 

570 IFINKEY*=" "THEN570 
580 SOUND 7,1 92: ’ KARTE AN 
590 FORWW= 1 TOPQ 
600 S0UND14, ZY (WW) 

610 ZZ=ZZ+1 - IFZZ<TR+10THENZZ=ZZ+1 
: G0T0610: ELSEZZ=0 

620 A*= INKEY*: IFA*="E"THENG0T0210 
630 NEXTWW 
640 GOTO 210 

650 CLS: PRINT "Zykl us simulieren": 

PR I NT " — — — 

— •• -PRINT 

4 5 6 


ee ee ee 


■II# 


uu uu uu 

üü uu" 

710 FORI =1 TOPO 
720 WE=128 
730 PRINT §400, " 

740 XX=ZY ( I ) 

750 F0RU=0T07 

760 IFXX— WE>=OTHENPRINT" AN " ; : XX 
=XX-WE: WE=WE/2: ELSEPRINT"AUS " ; : W 
E=WE/2 
770 NEXTU 

780 I F I NKEY*= " " THEN7B0 
790 NEXTI s G0T0210 
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800 CLS 

810 PRINT" Zykl us ausdrucken" 

820 PRINT" — — 

— — — " : PR I NT : PR I NT : PR 

INT 

830 INPUT "RETURN, wenn Drucker be 
reit"; A$ 

840 FQRI=1 T0P0: LR INT" Sehr i tt " ; I; " 

" ; : XX=ZY (I ) 

850 X X=ZY ( I ) 

860 WE=128: F0RU=0TG7 

870 I FX X-WE >=0THENLPR I NT " an , "; : 

XX=XX-WE: ELSELPR I NT" aus , " ; 

880 NEXTU: WE=WE/2 

890 NEXTI : G0TÜ210 ' 

900 CLB: PRINT" Zykl us listen ":PRIN 

T" — 

------- "zPFÜ NT 

910 FORI =1T0P0: PRINT" Sehr . " ; I ; " " 
; s XX=ZY ( I ) 

920 WE=128:F0RU=0TÜ7 

930 I F X X — WE >=OTHENPR I NT “ an , ";:XX 

=X X— WEs ELSEPR I NT "aus, " ; 

940 WE=WE/2 


950 NEXTU: PRINT: NEXTI 

960 INFUT" Ti ppen Sie Return!";DQ 

970 G0T0210 

980 END 

990 X=ZY<PO) 

1000 I FF'0=SZ + 1 THENGOT02 1 0 
1010 WE=1 28 

1020 PR INT §400, "Sehr i tt " ; PO; " 

1030 F0RU=1T08 

1040 IFX— WE=>0THENPRINT"1: " ; : X=X- 
WE: ELSEPR I NT"0: "; 

1050 WE=WE/2s NEXTU: PR INT §440, "Dez 
imal : ZY (PO) ; " ";: RETURN 


ACHTUNG 


" = Mod Sei Y 
II = Mod Sei E 
ä = Mod Sei Q 
ü = Mod Sei I 
e = Mod Sei P 
Ä =• Hochpf ei 1 



RAINER SCHULZ 


HAMURABI 




er 


■VtVSr- 1 


sieb 


se 




200 J=0 
210 ER-Ö 


10 ’ ***************************** 
******* 

20 ' (C) 1984 by H.Huebben 

30 ' 3429 MARIENFELS/T 

S. 

UJ* J| ^ ^ ^ ^ ^ tU (l( ^ vl > ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ilt ili ^ 

v* * * ^ ^ ^ ^ ^ ^ ^ ™ ^ ^ ^ * * * * * 

' ******* 

: 1 00 CLEAR500 s D I MM ( 27 ) : S0UND9 , 0 : SO 
UND1 0 , Os S0UND7 * 254: S0UND8, 16; SOUN 
;D 1 1 , 0 j SOUND 12,30 
1 1 0 CHAR4 : RANDOM : GOSUB 1 320 
120 PRINT§680,CHR$(30) :COLOUR6«PR 
INT'3680, " " ; : INPUT "Wuenschest Du b 
ersten zu werden ?" ; A* 

. 130 IFA#«" NEIN" THEN 170 
1 40 I FA*-- " J A " GOSUB 1 530 : GOTO 1 70 
150 C0L0UR3: PRINT" 

IJnverstaendl ich ist mir Deine Spr 
ache. " 

160 PRINT "Der Antworten erwarte i 
ch nur ' JA * " : PRINT"oder ’NEIN ' ! " 
: GOTO 120 
170 K“300C 
180 EW=100 

190 l» i ooo ■ \ 


220 RA=0 
230 ZU-0 
240 PT *0 

250 HT =0 : H0=0 : PO-O : Z0=0 . 

. 260 PR-2ÄRND (6): G0SUB270: G0T0350 
270. C0L0UR6: CLS: : PRINT" 

Entscheide Dich nun wie Du im Jah 
' re!’ } J+l ; " 

Deiner Herrschaft wirtschaften wi 
11 st : 

n 

2B0 CDLOUR 1 0 i PR I NT " -Es sind ";K; 
290 PR INT "Scheffel Korn ": PRINT" .1 
n den Speichern."/ 

300 PRINT" 

-Di e Stadt hat " ; EW; "Ei nwohner . 
310 PRINT" 

-•Du besitzt" ;Lj 

320 PRINT" Morgen Land. " 

330 PRINT" 

-Ein Morgen Land kostet " : PR; "Sehe 
f fei . " 

340 RETURN 



GENIE DATA 23 


330 C0LQUR2 » GOSUB 1 270 1 PR I NT" Wi w vl 
alr Mcsrgen willst Du kaufen ?":INP 
UT" " d M 

360 IFM»0THEN400 

370 IFM<OGOSUBi 170: G0T0350 

300 I FM *PR >KTMENF= 1 : GÜSUB1210: GOT 

0350 . 

390 K«K-M*PR»L=L+M: G0SUB270: G0T04 
50 

400 CDL0UR2: G0SUB1270: PRl'NT"Wie v 
iel Morgen willst Du verkaufen ?" 

: I NPUT " " ; M 
410 IFM-ÖTHEN450 
420 IFMCOGOSLJBl 170s GÜT0400 
430 I FM>LTHENF=2 : GOSUB 1 2 1.0 : GGTQ40 
: 0 

440 L=L-M: K=K+M*PR: G0SUB270 
450 CGU0UR2 : GOSUB 1 270 
460 M«EW*4: IFM>LTHENM«L 
470 TFM>KTHENM=K 

4B0PRINT" Wieviel Morgen willst D 
u einsaeen ": PRINT" lassen (max . " j 
Ml") ? " J I NPUT " " ; A: I FA«0THEN540 
490 I FA< OGOSUB 1 1 70 s G0T045Ö 
500 IFA>LTHENF«2l GDSUB1210: G0TÜ45 
0 ; ■ ■ ■ 

510 1 FA >4 * E WTHENF=3 1 GOSUB 1 2 1 0 1 GOT 
0450 

520 IFA>KTHENF=1 : G0SUB1210: GDT045 

o • . . 

530 K-K-A i G0SUB270 

540 CDL0UR2: GOSUB 1270: PR INT" Wievi 

el Scheffel Korn. willst Du an die 

550 PRINT "Hungernden verteilen •?" 

: INPUT" ";H: IFH=0THEN590 
560 IFH<0GDSUB1 170: GDT0540 
570 I FH >KTHENF= 1 : GOSUB 1 2 1 0: G0T054 
0 

580 K-K-H. 

590 GOSUB 1 320 : M« 4 : M ( 1 ) «214: M(2> =6 
79: M (3) «641 : M (4) «95: GOSUB 1880 
600 ER«RND (16) i K«K+ER*Ai RA» INT <RN 
D (0) *K/5> :K»K-RA 

610 Hl «INT (EW-H/4. 5) : H2-INT (EW--H/ 

9) s I FH 1 < «0THEN640 

620 HT« I NT ( H 1 #RND (0) +1) : HT=HT+ INT 

( (EW-HD/5) :HO=HO+HT:EW=EW-HT:PT= 

INT (EW/2#RND (0) +1 ) : PO=PO+PT 

630 EW«EW--PT: ZU« INT <EW/20*RND (0) + 

1 ) : ZO=ZO+ZU: EW=EW+ZU: : G0TO670 
640 HT«0; IFH2>0THEN660 
650 ZU« I NT ( < EW-H2 > *RND (0) +1 ) : ZO«Z 
O+ZUs EW«EW+ZU: PT»INT <EW/ 15*RND <0> 

+ 1 ) : PO=PO+PT : EW=EW-FT : G0T067O 
660 ZU« INT (EW/2*RND (0) +1 ) : Z0“Z0+Z 
U: EW=EW+ZU: PT-INT <EW/7#RND (0) +1 ) : 
PO-PO+PT: EW«EW-PT 

670 IFPT=iTHENF'T=0: EW=EW+T: PO«PO- , 

,t : v 


680 I FZU«1 THENZU™2 i EW»EW+1 i ZO“ZOt 
i -v, ... 

690 IFEW<1 TUEN 1470 

700 PR« I NT ( 2ÄRND ( 6 ) ) : J=J-*-l: IFJ<20 

THEN04O 

710 IFJ >20THEN770 
720 COLOURSi PR INT "Warnen muss ich 
Dich nun, 0 Herr, dass" 

730 PRINT "Du nicht den Goettern g 
leich ewig kannst" 

740 PRINT" verwei 1 en auf dieser We 
lt. " V''" 

750 PR INT "Er ei 1 en. kann, der , Tod Di 
ch vori nun !an in":PRINT".jedern Jah 



760 M« 6 : M < 1 ) « 80 : M ( 2 ) = 85 : M < 3 ) « 107 : 

M ( 4 ) = 71 : M ( 5 ) = 9 . 5 : M ( 6 ) = 27 : GOSUB 1880 

: GOSUB 1 430 : GDT 0840 

770 IFRND(TO) >J- 20 THEN 840 

780 C 0 L 0 UR 3 : FÜR I= 1 T 040 : PRINT "g"i : 

NEXT: PRINT 

790 PR I NT "Ereil et hat Dich Dein S 
chicksal nun im" 

800 PRINT" Jahre" ; J ; " Deiner Herrs 
chaft • " 

810 PRINTi F 0 RI«lT 040 i PRINT"g" ; : NE 
XT: PRINT: PRINT ' 

■ 820 M»27: M < 1 > »381 : M (2) «320: M (3) «2 
54; M (4) =381: M (5) =320: M (6) =254» M <7 
) =285: M (8) =240: M (9) =381 : M < 10) =205 
* M Mi) =254: M < 12) =240: M < 13) =254: M C 
14) «404: M ( 15) =381 : M ( 16) =381 
830 M < 1 7 ) =320 : M (18) =254 : M < 1 9 ) =38 1 
: M ( 20 ) =339 : M < 2 1 ) =320 : M ( 22) »404: M ( 
23) =381: M (24) =320: M (25) =254: M (26.) 
«404: M <27 ) = 1 90 : GOSUB 1 880 : GOTO 1 040 
840 C0L0UR6:CLS: PRINT "ü HAMURABI 

l n 

850 C 0 L 0 UR 1 1 : PRINT" 

Ich berichte von dem Jahr " ; J ; "Dei 
ner" 

860 PR INT "Herr schaft Lieber Babyl o 
o» " : - 

870 FORI = 1 TO 1000 : NEXT 
880 CÖL 0 ÜR 1 : PRINT" 

--Die Ernte betrug "; ER; "Scheffel K 
orn Je" 

890 PRINT" Morgen, insgesamt ER* A 
; "Scheffel. " 

- 900 PRINT"-"; RA; "Schef fei f rasseh 
" i PRINT" die Ratten. " 

910 PR INT "-Es sind "; K; "Schef fei " 
920 PRINT" Korn in den Speichern. 

930 PR INT "-Es kamen" ; ZU: PRINT" Me 
nschen in die Stadt. " 
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940 PRINT"-" « PT? "Menschen starben 
an der "Y 

950 PRINT" Pest und" ;HT; "Hungers. 

ii ' «; . ’ • • . ’ *. ’ • ‘ 

960 PR INT "-Di e Stadt hat jetzt "iP 
RI NT" ";EW; "Einwohner. " 

970 PR INT "-Du besitzt";L; 

980 PRINT"Morgen Land." 

990 PRINT"-Ein Morgen Land kostet 
" ; PR« "Scheffel. " 

1000 F0RI-1T01000« NEXT 
1010 C0L0UR2 : PRINTS842, "Willst Du 
abdanken ? (JaJ) " 

1020 A*-INKEY*: IFA*=" "THEN1020 
1030 IFASC ( A*> < >74THENG0SUB270« GO 
T0350 v 

1040 GOSUB 1320 8 COLOUR 10« PRINT" 

Du hast ";Jj "Jahre geherrscht ! . 
1050 PRINT"Siehe ob Du ein guter 
Herrscher warst:" 

1060 PRINT" 

-Du hast den Kornvorrat der Stadt 
um": PR INT" " « ABS (3000-K) ; "Scheff 
Bl "U 

1070 IFK>3000THENPR INT "vermehrt. " 
ELSEPRINT" vermi nd er t. " 

■ 1080 PRINT"-" « ABS ( 1000-L) j "Morgen 
Land" SPRINT" hast Du 
1 090 I FL >« 1 OOOTHENPR I NT " er wor b en . 
"ELSEPRINT "verloren. " 

1100 PRINT"-Es kamen ": ZO; "Leute" 
«PRINT" in Deine Stadt." 

1110 PRINT"-" ; HO j "Menschen starbe 
n Hungers, " 

1120 PRINT" und" j PO |" an der Pest. 

II ” 

1130 PRINT"-Insgesamt hat sich di 
e Bevoelkerung 

um"; ABS(EW-IOO) ; "Menschen "j : IFEW 
> 1 OÖTHENPR I NT " ver meh r t . " ELSEPR I NT 
"vermindert. " 

1140 C0L0UR6: PRINT" 


(druecke i 

rgendeine Taste !>" 

1 150 A*=INKEY*: IFA*-" "THEN1 150 
1160 GOTO 1920 

1 170 C0L0UR3:PRINT£640, STRING* (12 

0, " ") «PRINT§640 , ""5 

1180 PR INT "+++«■+ Unbekannt ist mi 

r, 0 Herr , die" : PRINT" Hierog 

lyphe 

1 190 M-3i M ( 1 ) -.160: M (2) -855: M (3> -3 
2« GOSUB 1880 
1200 RETURN 

1210 C0L0UR3 1 GOSUB 1 270 : SOUND 12,25 
Oe PRINT"+++++ Bedenke nochmals, 0 
Herrscher," 


1220 C0LQUR5« PRINT"Du hast nur 
:0NFG0T01230, 1240, 1250 
1230 PRINTK; "Scheffel Korn! "«GOTO 
1260 

1 240 PR I NTL 5 " Morgen Land ! " : GOTO 1 2 
60 

1250 PRINTEW« "Untertanen !" 

1260 S0UND12, 200: M=1 : M ( 1 ) =1000: GO 
SUB1880: :LL=-1: RETURN 
1 270 I FLLTHENFOR I = 1 TQ2000 : NE X T : LL 
=0 

1280 S0UND12, 19 

1290 M-l 1 M ( 1 j =1281 1 GOSUB 1880« PRIN 
T§640, STRING* < 120, " ") 

1300 PRINTS640,."" 5 
1310 RETURN 
1320 CLS: PRINT 

1 330 COLOUR 1 1.« PR I NT "#####*##### # * 
####*###*#*#####*#*##**####" 

1340 PRINT"#"; « COLOUR 6 : PRINT" H A 
M U R A B I von BABYLON 
" 5 «COLOUR 11 «PRINT"#" 

1350 PRINT"#".« IC0L0UR3 SPRINT" üüü 
üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü 
"f t COLOUR 1 1 : PRINT"*" 

1360 PRINT"*" « sCÜLOURlOsPRINT" Ei 
n Manegement-Spiel fuer Bauern un 
d "; «COLOURUiPRINT"#" 

1370 PRINT"*"; s COLOUR 10: PRINT" 
Kaufleute zugleich 
"5 «COLOURUiPRINT"#:" 

1380 PRINT"##***##**#####**#***#* 
*#*****##***#*##*#" «C0L0UR6 
1390 PRINT" 

0 HAMURABI ! 

11 . "r ■ 


1400 M-6: M CI ) =381 1 M <2) -190« M <3) = 1 
60« M (4) =170« M <5) =160: M (6) = 190« GOS 
UB1880 

1410 RETURN qO* 

1420 C0L0UR2: PRINT" i c p6 


alles gelesen 


" « FORI“1T05000: NEXT 
1430 PRINT" Wenn Du 
hast, dann" 

1440 PRINT" druecke irgendeine 
n Knopf !"; 

1450 IFINKEY*- 1 ' "THEN145Ö 
1460 CLS« RETURN 

1470 G0SUB1320sPRINT"Du hast es g 
eschaff t ! ! ! " 

1480 PRINT" 

DEIN VOLK IST VOLLSTAENDIG AUSGER 
OTTET ! " , . ■ 

1490 M-3: M CI ) =107« M <2> »53: M <3> «27 
«GOSUB 1880 
1500 PRINT" 

Das ist das # E N D E *" 

1510 C0L0UR2 : PRINT« PRINT" (Dru 

ecke irgend eine Taste) " 

1 520 A*» I NKEY* : I FA*- " " THEN 1 520ELS 
El 920 , * 
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1530 GOSUB 1 320 s COLOUR 1 0 

1540 PRINTVWi 1 Ist Du vergroessen 

wohl Dein Reich, 

1550 PR INT "so kaufe Land !• 

1560 PR INT" Bedenke jedoch, die Me 
nge des Korns ist 

1570 PRINT"n.i cht unendlich wie de 
r Sand der Wueste." ; 

15.80 PR INT" Willst Du verkaufen La 

nd , so kaufe 

1590 PRINT"ni chts ! 

1600 PR INT "Man wird Dich fragen, 
wieviel zu ver — 

1610 PR INT "kaufen Du gedenkst. 
1620 PRINT"Doch merke, auch Dein 
Land ist nicht so 
1 63p PRINT"gross, wie wohl das Re 
ich der Goetter ! 

1640 G0SUB1420 

1650 C0LQUR10: PRINT"Wi 1 Ist du Kor 
n ernten, so musst Du 
1660 PRINT"saeen Korn zuerst, dam 
it der Goetter 

1670 PRINT"Segen gedeihen laesst 
was Du bestellst. 

1680 PRINT "Bedenke aber, dass der 
Morgen' vier nur 

1690 PRINT"kann bestellen jeder D 
Untertanen. " ; . 


1740 PRINT"glueckl ich sind und au 
ch gesund . . 

1750 PRINT" 

Willst Du jedoch vermehren die An 
zahl 

1760 PRINT" der Buer g er Deiner Sta 
dt, so teile jedem"; 

1770 PRINT" zu. der Scheffel 
Dein Grossmut wird"; 

1780 PRINT-". «ich wi ederspi egel n im 
Zulauf in Dein -- — 

1790 PRINT"eigen Reich. (Co, 

1800 PRINT" i GcPUb' 


neun 


" j G0SUB 1 420 s G0SUB1 320 ^ <<■ 

1810 PRINT "Wenn Du hast verstände 
n, wie Dü ei n 

1820 PRINT"maecht i ger .' und rei cher 
Herrscher wirst 

1830 PR INT "so drueck hernieder ei 
nen langen Knopf 

1840 PR INT "an dem Geschenk der Go 
etter , vor ■ 

1850 PRINT "dem Du wohl sitzest. 
1860 A$=INKEY$: IFA$<>" "THEN1860 
1870 RETURN. 

1880 FORI“ 1T0M 
1890 M < I ) “M ( I > /2S6 

1900 SOUNDO, 256* (M ( I ) -INT <M < I ) ) ) s 
S0UND1 , INT (M ( I > ) : S0UND13, 0 
1 91 0 FORI I j| 1 T050 sNEXTsNEXTi FORI I “ 
1T0200S NEXT: RETURN 

1 920 C0L0UR2 : CLS : GOSUB 1320 :PRINT" 


ei ner 
1700 PRINT'! 

Willst Du ein guter und gerechter 
Herr — v ■ 

1710 RRINT"scher sein, so teile a 
us an jeden Deiner"; , 

1720 PRINT" Untertanen Korn. Sie b 
raut he vier und 

1750 PRINT "ei nen halben Scheffel, 
dami t 'sie 


Noch ein Spiel 7 (JaJ) (NeinN) 
1930 A*=INKEY*s IFA$=" "THEN1930 
1 940 I FA*= " J "TUEN 170 
1950 IFA$< > " N " THEN 1 930EL.SERUN 


In Kürze erscheint bei uns die erste Ausgabe der Micro Byte. Die Micro Byte ist eine spezielle 
Zeitschrift für den SINCLAIR QL. Wenn Sie also mit dem QL liebäugeln, sollten Sie sich mit uns 
in Verbindung setzen. 

Micro Byte ist die Zeitschrift für alle QL- Anwender 1 SuS, V«S' «K&ft 

' Mühlbachstraße 2 

D -5429 Marienfel/Ts. 


\ 
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MANFRED HEN5EL 

Retten und Mischen 


Eine angenehme Art, Programme zu schrei- 
ben, ist das Anketten einzelner Programm- 
biöcke aus einer mehr oder weniger umfang- 
reichen Programmbibliothek. Hierfür ver- 
wendet man Befehle wie APPEND oder 
MERGE, sofern man hat. 

Der; Colour Genie Besitzer hat nicht; aber 
selbst Wenig-Programmierer kennen inzwi- 
schen sicherlich die Zu-Fuß-Methode: 

Man belegt den. Programmanfangzeiger mit 
dem Wert des Programmendezeigers (minus 
2), lade mit CLOAD das neue Programm, 
besetze den Programmanfangszeiger mit 
dem alten Wert und schon sind beide Teile 
vereint. 

Diese Methode erfordert erhebliche Kon- 
zentration und hat den nicht zu unter- 
schätzenden Nachteil, daß das neue Pro- 
gramm immer nur an das alte angehängt 
werden kann und zudem irgendwelche Zei- 
lennummern aufweist, nur nicht die passen- 
den. 

Das vorliegende Programm bietet nun 
mit ca. 380 Byte einen ungeahnten Komfort: 
Es umfaßt zwei von einander getrennte 
Funktionsblöcke, von denen der Kürze wegen 
die SAVE-Routine zuerst besprochen werden 
soll. Mit ihr können aus vorhandenen Pro- 
grammen interessante Teile herausgeschnit- 
ten werden und zu einer Programmbibliothek 
zusammengestellt werden, z. B. : SAVE 

"X", 700-900 schreibt das Segment von Zei- 
lennummer 700 bis 900 mit dem Namen "X" 
auf Band. Das Mutterprogramm wird dabei 
nicht verändert. Die Zeilennummern können 
wie beim LIST-Befehl verwendet werden, d. 
h'„ es sind folgende Ausdrücke erlaubt: 

SAVE "X" 

SAVE "X", ZI - Z2 
SAVE "X”, ZI - 
SAVE "X", - Z2 

SAVE "X" allein entspricht dem GS AVE 
"X"! 

Die Angabe des Namens ist wie bei CSAVE 
zwingend vorgeschrieben; auch hier wird nur 
das erste Zeichen ausgewertet. Folgen nach 
einem Komma weitere Parameter, werden 
diese als Zeilennummern interpretiert und in 
einer Betriebsystem routine ausgewertet 
(CALL 1B10H). Diese liefert von der ersten 
Zeilennummer die Zeilenadresse (d. h., die 


Speicheradresse, bei der die Zeile beginnt) 
und auf dem Stack die zweite Zeilennum- 
mer. Von letzterer wird mit CALL 1B2CH 
die Zeilenadresse ermittelt (genauer: die 
Zeilenadresse der darauffolgenden Zeile, 
denn man will einschließlich der zweiten 
Zeilennummer abspeichern; die benutzte 
Routine liefert beide Werte.). 

Nachdem nun der Vorspann, der File- 
Name und Byte für Byte des Programmtex- 
tes auf Band aufgezeichnet sind, muß noch 
die Speicherstelle "FLAG" geprüft werden, 
denn im Regelfall müssen noch zwei Byte 00 
hinterher geschickt werden, um. das Text- 
ende auf Band zu kennzeichnen. Die Aus- 
nahme ist nur bei SAVE"Name" und SAVE 
"Name", ZI- gegeben, da hier sowieso bis 
zum Textende aufgezeichnet wird. 

Die so erzeugten Programmbänder sind 
absolut kompatibel zu CSAVE-Aufzeich- 
nungen und können deshalb auch mit CLOAD 
eingelesen werden. Sollen sie jedoch zu ei- 
nem Programm zugeladen werde, verwendet 
man zweckmäßigerweise den Befehl MERGE. 

Hier sind folgende Ausdrücke erlaubt: 

MERGE "Name", Z,ST 

MERGE "Name",Z 

Merge "Name" 

Darin bedeuten Z die Zeilennummer, mit 
der die erste Zeile des nachzuladenden Pro- 
gramms (irrt folgenden "das neue Programm" 
genannt) beginnen soll und ST die Schritt- 
weite der Zeilennummern. 

Daraus folgt, daß hier mehrere Arbeits- 
schritte aufeinanderfoigen: 

1. Auswerten der Parameter 

2. Laden des neuen Programms 

3. Umnummerieren 

Einfügen in den alten Programmtext 

Um das Maschinenprogramm möglichst kurz 
zu halten, werden zahlreiche Betriebssy- 
stemroutinen verwendet, von denen der sog. 
"Haupteingabeschleife" eine zentrale Bedeu- 
tung zukommt, denn die Routinen CLOAD 
und RENUMBER enden beide nach getaner 
Arbeit in dieser Schleife und das Einfügen 
von Zeilen geschieht überhaupt in dieser. 
Das würde bereits nach CLOAD zur Meldung 
READY und zum Programmstop führen. 
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Glücklicherweise existieren auch hier die 
sog. DOS-Exits, mit 'Return' kurzgeschlos- 
sene Aussprünge zur Erweiterung des Be- 
triebssystemes und Interpreters. 

So ergibt sich, grob skizziert, folgender 
Prögrammfahrplan : 

Der Programmname wird, wenn eingegeben, 
ausgewertet und sein erstes Zeichen zusam- 
men mit dem 'Nicht-Verify-Flag' auf den 
Stack abgelegt (Register E = Filename oder 
'0!, Register D =: 0, d. h., kein Verify). 

Folgt nach dem Komma eine Zahl, so ist es 
die Anfangszeilennummer. Sie wird errech- 
net und abgespeichert; folgt nach einem 
weiteren Komma noch eine Zahl, ist es die 
Schrittweite. Fehlt die Schrittweite, wird: 
sie mit 10 angenommen. Fehlen beide Anga- 
ben, wird in LASTNR die letzte Zeilennum- 
mer des alten Programms ermittelt, um 10 
erhöht, und als Anfangszeilennummer abge- 
legt. Nun werden; Textanfang und -ende des 
alten Programm gerettet, das Textende um 
255 erhöht (warum: siehe unten) und als 
neuer Textanfang abgelegt. 

Bevor nun in die Routine CLO AD ge- 
sprungen wird, müssen noch zwei Vorkehrun- 
gen getroffen werden: 

Am Ende der Haupteingabeschleife \yird der 
DOS-Zeiger auf die nachfolgende RENUM- 
Routine gerichtet, so daß nach beendetem 
Ladevorgang nicht die Meldung "Ready" 
erscheint, sondern im Programm fortgefah- 
ren wird. 

Desweiteren muß für den Fehlerfall vor- 
gesorgt werden. Dafür wird am Anfang der 
Haupteingabeschleife ein weiterer DOS-Aus- 
stieg geöffnet und zeigt nun auf den Pro- 
grammteil FEHLER. Hier werden die Text- 
anfangs- und -endezeiger auf die alten Wer- 
te zurückgesetzt und die DOS- Aussprünge 
wieder verschlossen. Andernfalls wäre bei 
•BREAK oder ERROR das alte Programm 
verloren. 

Nach beendetem CLOAD wird, wie beschrie- 
ben, in die RENUM-Routine verzweigt. Die- 
se ist erfreulich kurz gehalten: 

Der DOS-Zeiger am Ende der 
Hauptschleife wird - erneut . verändert ■ (er 
zeigt nun auf das Programmteil INSERT), 
zwei Doppelregister werden mit der 
Anfangszeilennummer und der Schrittweite 
versehen und es folgt der Sprung in die Be- 
triebssystemroutine RENUMBER. 

Das neue Programm ist nun umnumme- 
riert und muß nur noch in das alte Pro- 
gramm eingefügt werden. 

Dieses erledigt INSERT auf etwas eigentüm- 


liche Weise: 

Zunächst wird der neue Textanfang im In- 
dexregister IX abgelegt, dann belegt man 
die Zeiger für Textanfang und -ende mit den 
alten Werten, verbiegt den DOS-Aussprung 
der Hauptschleife auf INS2 und schließt den 
DOS-Aussprung für die Fehlerroutine kurz, 
denn die alten Programmparameter sind 
bereits eingerichtet. 

In INS1 wird mit dem IX-Register als 
Zeiger auf das erste Byte der Zeile die Zei- 
lennummer der einzufügenden Zeile ermit- 
telt und der Zeilentext mit einer Betriebs- 
system Routine in den I/O-Buffer übertragen 
(dabei werden die Tokens in lesbaren Text 
übersetzt). Durch den Sprung in die Haupt- 
schleife wird dieser Bufferinhalt wieder in 
Tokenform übersetzt und mit Hilfe der Zei- 
lennummer richtig eingefügt, so als sei die 

Zeile über die Tastatur eineegeben worden. 
Durch dieses Einfügen verlängert sich der 
alte Text und würde die gerade bearbeitete 
Zeile mitsamt der Zeilenzeiger überschrei- 
ben, wenn nicht vor dem Nachladen ein Ab- 
stand von 255 Byte zwischen altem und 
neuem Text eingefügt worden wäre. 

■ • 1 ■ : : 

So kann der Anfang der nächsten einzu- 
fügenden Zeile ermittelt werden und der 
Vorgang wiederholt sich, bis die Routine 
INS2 das Ende des neuen Textes erkennt. 
Hier wird der DOS-Aussprung endgültig 
kurzgeschlossen und die Aktion beendet. Es 
erscheint der Text 'Ready' und das Prompt- 
zeichen. Bei längeren nachzuladenden Tex- 
-ten können etliche Sekunden zwischen dem 
Erscheinen von 'Ready' (nach CLOAD) und 
dem Prompt (nach INSERT) vergehen. Diese 
umständlich anmutende Methode des Ein- 
fügens ist ein Kompromiss zugunsten eines 
geringeren Programmieraufwandes. 

Man beachte: alte Zeilen werden von 
neuen Zeilen gleicher Zeilennummern über- 
schrieben! Soll das vermieden werden, 
empfiehlt es sich, die Zeilennummern des: 
alten Textes durch vorhergehendes 
RENUMBER zu spreizen und den neuen Text 
mit der Schrittweite 1 einzufügen. 

Der Anfang des Maschinenprogramms ist 
hier durch ORG auf B000H festgelegt (d. h., 
die letzten 4K des 32K Colour Genie). Für 
die 16K Ausführung empfiehlt sich ein ORG 
7800 H o. ä. Nur darf man in keinem Fall 
MEM SIZE vergessen (44000 für B0O0H Und 
30620 für 7800 H). 
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Progrimuidruck RETTEN UND NI8CHEN 

580 

LD HL, (40F9H) 



roß 

1 n (BllFd) Ml 



600 

lu löurt* ? riL 

LD DE, 255 ("neuen Textanfang eit * ; 



610 

ADD HL, DE ["Abstand" 



620 H 

LD (40A4HI.HL | "abspeictiern" 

1 | NER6E 

"NaeeVZN.ST UND SAVE ’N»»e",Zl-Z2 FUER 

625 

LD HL, FEHLER 

C0L0UR-6ENIE 16K/32K UND CASSETTENBETRIEB 

630 

LD (41ADH) ,HL 

(0 HANFRED HENSEL, 5000 KOEIN 91, NERNTGENSTR.23 

635 

LD A.0C3H , . . ' , 

10 

0R6 OBOOOH 

640 

LD <41 ACH) , A 

80 BUF1 

EQU 43A0H ; ZWISCHENSPEICHER 111 DOS-RAN 

650 

LD (41B5H) ,A 



655 

LD HL, RENUM 

85 BUF2 

EQU BUF1+2 

660 

LD (41B6H) ,HL 

90 BUFJ 

EQU BUF2+2 

665 

POP DE ["Filenaee zurüeck" 

95 BUF4 

EQU 8UF3+2 

670 

JP 2C47H ["und nach CLOAD* 

96 FLAB 

ESU BUF3 

680 j 


100 1NIT 

LD HL, HERBE 

690 RENUM 

PQP BC • 

110 

LD (41BCH),HL 

700 

LD HL, INSERT 

160 

LD HL, SAVE 

710 

•LD (41B6H1.HL 

IS 165 

LD (41A1HI.HL 

720 ' 

PUSH IX 

240 

JP 066H 

730 

LD HL, (BUF1 ) j’Zeilennuaeer und’ 

245 i 


740 

PUSH HL 

250 «ERBE 

LD A,0 [ "Keine weiteren Zeichen?' 

750 

LD DE, (BUF2) ; "Schrittweite vorbereiten" 

. 255 

JR Z, LI ;"Ja,nach LI" 

760 

JP 323FH ["und nach RENUHBER" 

260 

LD A, iHL) 

770 | 


265 

CP 2CH [‘Koeea ?' 

780 FEHLER 

LD HL, (BUF4) ; "alte Textpointer und" 

270 

LD A,0 

790 

LD (40F9H),HL . 

275 

JR Z,L1 

800 

LD HL, (BUF3) 

280 

CALL 2337H ["Filenaeen auswerten" 

810 

LD (40A4H) ,HL 

290 

PUSH HL 

820 

LD A, 0C9H ["Hauptschleife reitaurieren" 

; • 300 ■ 

CALL 2A13H 

830 

LD <41 ACH) , A 

310 

POP HL 

840 

LD (41B5H) , A 

330 

LD A, (DE) ; "I . Zeichen des Filenaeen* 

850 

RET 

340 LI 

LD E,A V : 

860 ; 


350 

LD D, 0 ("und Nicht-Verify" 

870 LASTNR 

LD HL, (40F9H) ; 

360 

PUSH DE ;‘abspei ehern" 

872 

LD DE, I40A4H) 

380 

LD A, (HL) ["weitere Zeichen?" 

873 

INC DE 

390 

OR A . ; 

B74 

INC DE 

400 

JR Z,LASTNRj "nein: letzte Zeilennr. suchen 

8/5 

RST 1BH 

410 

CP2CH ; "Koeea?" 

876 

LD DE, 0 / ni .^ 

JR Z, L4A /C0\- 0 ^ ) 

DEC HL l Gt 14 ' y 

420 

JP NZ, 1997H [*nein:SN-ERROR“ 

878 

430 

CALL 1E5BH ; "Zeilennr. auswerten* 

880 

440 

LD A,D > 

890 

DEC HL 

450 

OR E 

900 

DEC HL 

460 

JP Z.1E4AH ['wenn O.dann FC-ERROR" 

910 L4 

LD A, 0 

470 

LD (BUF1),DE 

920 

DEC. HL 

480 

LD DE, 10 

930 

OR IHL) 

490 

LD A, IHL) 

940 

JR NZ,L4 

500 

OR A 

950 

INC HL 

510 

JR Z,L2 ; "keine Schrittweite angegeben 

960 

INC HL 

v : r ... 


970 

INC HL 

■- 320 

CP 2CH 

980 

LD E, (HL) • 

530 

JP NZ,1?97H 

990 

INC HL 

540' 

CALL 1E5BH ['Schrittweite eraitteln" 

1000 

LD D, (HL! , 

. 542 

LD A,D 

1010 L4A 

LD HL, 10 

544 

□RE 

1020 - 

LD (BUF2) , HL 

t 550 • 

JP Z,!E4AH 5*0 ?, FC-ERROR" 

1030 

ADO HL, DE , 

555 L2 

LD IBUF2),DE 

1040 

LD (BUFD.HL 

560 L3 

LD HL, (40A4H)[ "alte Textpointer abipeiche 

1050 

JR L3 

rn" ' . 


1060 ; 


570 

LD (BUF3) , HL 

1100 INSERT 

LD IX, (40A4H); "neuen Textanfang nach IX’ 



| PAKET BESTELLUNG 

•S? Im Paket bestellen können Sie jeweils drei Arti- 
kel. Diese Artikel sind entweder nur Programme, 
■>$ oder zwei Programme und unser Colour Genie 
Buch. Auf jedes Paket gewähren wir einen 
äjj|.' Nachlass von 25,~ DM I 
§§ Artikel Betrag 


ABOBESTELLUNG 

(Abos nur per Vorkassel) 

Hiermit bestelle ich Abo(s) der Fachzeit- 
schrift GENIE DATA. Mir ist bekannt, daß ich 
das Abo bis sechs Wochen vor Ablauf schrift- 
lich kündigen kann. Der Bezugspreis beträgt in- 
nerhalb der BRD nur 48,-- DM incl. Porto und 
Verpackung. Die Bezugsdauer verlängert sich 
nach Ablauf des Abos um weitere sechs Ausga- 
ben, solange bis gekündigt wird. Den Betrag von 
48,- DM habe ich: 

0 Auf Ihr Postscheckkonto 242072 -60& Ffm. 
überwiesen 

0 Per Scheck beigelegt 

Zutreffendes bitte ankreuzen 

Mit Ihren Bedingungen erkläre ich mich einver- 
standen: 


Gesamt Betrag 


5 ! Versand bitte per : 
y 0 Vorkasse 

$ 0 Nachnahme (Betrag plus 4,20 DM Porto I) 


Unterschrift 


Datum 


Unterschrift 


SOFTWARE SERVICE BESTELLUNG 

Hier erhalten Sie Programme, die bereits in der 
GENIE DATA abgedruckt wurden. Wenn Sie 
keine Zeit oder Lust zum tippen haben, sollten 
Sie dieses Angebot nutzen I 
Auch unsere Bücher können Sie mit diesem 
Schein bestellen. 

Anz. Artikel Preis 


S Der Nachlass von 25,-- DM wird von uns 
i abgezogen! 


Mein Absender 

Tragen Sie hier bitte deutlich ein, an wen die Bestellung gelie- 
fert werden soll. Bei Vorkasse vergessen Sie bitte nicht, Ihrer 
Bestellung einen Scheck beijtulegen. Versand ins Ausland 
kann grundsätzlich nur per Vorkasse erfolgen. Addieren Sie 
dann zu der Gesamtsumme Ihrer Bestellung DM 5,-- für Porto 
und Verpackung und legen Sie bitte einen Euro-Scheck bei I 
(Nur für Ausland !} 


....G?h.irnT. r Äi.0jn9i.Cfi,.PA?K ,...3§,.-.-. 

28*7. 

.........sshi^ 

28,::. 

...... ; m 

Hier können Sie andere Programme eintragen I 


Name 


Straße 


Datum und Unterschrift (Unter 18 Jahren ein Elternteil) 


Gesamt-Preis: 

Versand per 0 Nachnahme / 0 Vorkasse, Scheck 
liegt bei. Bitte ankreuzen I 


Senden Sie diese Bestellung an: 

Fa. Heinz und Ralf Hübben, Mühlbachstraße 2 
D-5429 Marienfels/Ts. 


Datum 


Unterschrift 


e 

d 

rauszutrenr 
en. Sie seh 

en 

en 

n 

d Ralf Hüb 

be 


.C.9.1.9 iW.RQ&RuSb. 


Spooler Genie 1, II, III, Disk ... 

29,--... 

Das L-Spiel, CG, Disk 

36,-.. 

Das L-Spiel, CG, Ca?satte 

28*:... 
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eder Ausgabe drei Zellen 


können Sie auch kostenlos inserieren 


SUCHT LESER 
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ffiS?:: 


.'va 


Ihr nmitlsägH ftutnw für Cwnputirsyjtsmj 

cc Computer Studio GmbH 

Sottwini + Ktnfrara + Bmtung- 
für THS 80 » und Gsnie-Comptf« 
Swvla-EHwMnJ 

Elisabethstraße 5 
4600 Dortmund 1 
Tel : 0231 52 8184 

ffrArepracftpartner. Tx 822 631 CCCSd 

V.SdaWnstT 

Jan P. SehMidtf , 

•TOS BO Ist eingetragenes Warenzeichen der Tandy Cwp, 


TROMMESCHLAGER 
COMPUTER GMBH 
STAUGUSTIN 

POSTFACH 2105 
5205 ST. AUGUSTIN 2 
TEL. 02241-28071 
Telex 889702 


TATUNG TPC 2000 
Bürocomputer mit 1.4 MBYTE 
Diskkapazität 

RECHNER für C/PM 22 und 
GENIE DOS 

Mit TOPTIP Textverarbeitung, Fi- 
nanzbuchhaltung u. offene Posten- 
verwaltung. Enapreis DM 5995,-- 
Räbiger Computersysteme 
5160 Düren, veidonerstr. 65 
Tot. 02421/43677 , Telex 833642REDO 
Mont.-Frelt.l0-13, i4-17 Uhr 
Alls1nvertr.,Handlsrarfrag. willkommen 


SCHMIDTKE 

electronic 

GEN IE -Fachhändler 

Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241 -23217 


Elektronik 

SHOP 


Iburgerstraße 17 
Telefon 0541/588660 
4500 OSNABRÜCK 


Geschäftszeiten: 

Mo. - Fr. 10.00 Uhr bl* 13.00 Uhr 
14.30 Uhr bis 16.30 Uhr 
Sa. 10.00 Uhr bis 14,00 Uhr 

Donnerstigf geschlossen 


MICRO 80 Com puter 

GENIE CENTER 

mit eigener Servic« Station 
CompuUr • Monitor* 
Typen rid u MatM. drucks, 

M W fmeeibuchMlhino • Lo^nbuchhaltuno 

V tf*li*>‘Se|t*ir# - Spleiproorerwm, 


Microcom puter 
Softwareprodukte 
Periphariegeräte u. Zubehör 
SHARP 
KAVPRO 

— ■ EACA- GENIE 

OSBORNE 
RjSfc-™” - - ATARI u.a. 

sSSSma EPS0N 

BROTHER 

2940 Wilhelmshaven 
Bismarckstraße 150 
Telefon 04421 -12636 


WERSI 


MUSIK + COMPUTER 
Orgel- u. Piano-Bausätze 
Industriestraße 
5401 HALSENBACH 
Tel.. <06747} 7131 


1000 Berlin12, 


Telefon 030/3125913 

Geschäftszeiten : Mo-Fr 10-ie; Sa 10-13 Uhr 




X 
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1110 

LD HL,(BUF3) ; 'alte Textpointer erneuern' 

2140 

PUSH HL 

1120 

LD I40A4H) , HL 

2150 

CALL 2A13H 

1130 

LD KL, (BUF4) 

2160 

POP HL 

1140 

LD C40F9H) ,HL 

2170 

PUSH DE i'und 1. Zeichen retten" 

1150 

LD HL,INS2 

2180 

LD A, (HL) j 'weitere Angaben?' 

1160. 

LD (41B6H),HL 

2190 

CP 0 

1170 

LD A,0C9H | "Fehlerabf angroutine" 

2200 

JR Z,AUFZEI| 'nein, ganzen Text auf Band* 

1180 

LD (41ACH),A i'abschalten* 

2210 

CP 2CH | 'folgt ein Koaaa?* 

1190 ( 


2220 

JP NZ. 1997H f 'nein, SN-ERROR." 

1200 1NS1 

PUSH IX, 

2260 

RST 10H 

1210 

POP HL 

2270 ; 


1220 

INC HL j 'Zeilenpointer und* 

2280 

CALL 1B10H ,''Zeilennuaaer(n) ausnerten* 

1230 

INC HL , 

2290 

LD (BUF1),BC 

1240 

INC HL i'Zeilennuiaer uebergehen' 

2300 

POP DE 

1250 

INC HL 

2310 ; 


1260 

CALL 2B7EH i'Text in I/0-Buffer eintragen 

2320 

LD HL, 0FFFAH | a 2.Zeilennuaaer»Textende?’ 

■ 


2330 

RST 18H 

1270 

LD E, (lX+2);'Zellinnuaier a 

2340 

JR NZ.L6 f 'nein' 

1280 

LD D,(IX+3)|'nach DE' 

2350 

JR AUFZEI ("ja* 

1290 

LD HL, (40A7H)| 'Bufferanfang nach HL* 

2360 j 


1300 

SCF 

2370 L6 

X0R A 

LD (FLA6),A / C 0^ t ) 

1310 

PU8HAF 

2380 

1320 

JP 1A98H ('Zeile elnfuegan' 

2390 ; 

1330 j 


2400 

CALL 1B2CH 

1340TNS2 

POP BC 

2410 

JP NC.1ED9H 

1350 

LD L, IIX+0) | 'Zeiger auf die' 

2420 

LD (BUF2),HL 

1360 

LD H, (IX+1) ;'naechste Zelle holen' 

2430 AUFZE1 

CALL 023FH ('Vorspann auf zeichnen* 

1370 

PUSH HL ' 

2440 

POP DE 

1380 

POP IX | 'und nach IX' 

2450 

LOA, (DE) i'Filenaaen* 

1390 

LD A, (HL) | 'neuer Text zu Ende?" 

2460 

CALL 021 FH ('aufzeichnen* 

1400 

INC HL 1 

2470 

LD DE, (BUF1) i'Text von* 

1410 

0R (HL) 

2480 

LD HL,(BUF2)|' bis ' 

1420 

JR NZ, INS! | 'nein, Heiteraachen' 

2490 LOOP 

LD A, (DE) i'Byte fuer Byte aufzeichnen 

1430 

LDA.0C9H i'HauptschleUa Nieder' 

• . 


1440 

LD (41B5H),A i'schliessen.' 

2500 

INC DE 

1450 

RET 

2510 

CALL 021 FH 

2000 | 'Beginn der SAVE-Routin«' ! 

2520 

RST 18H | 'Fertig?' 

2010 i 


2530 

JR NZ.LOOP | 'nein* 

2020 | 


2550 

LD A, (FLAB) 

2050 SAVE 

>• PUSH HL | 

2560 

INC A 

2060 

LD HL, (40A4H); 'Buffer ait Textanfang' 

.2570 . 

DEC A 

2070 

LD (BUF1),HL 

2580 

JR NZ,L7 

2080 

LD HL, (40F9H)|’und Textende vorbeietzen* 

2590 

XOR A 

2090 

LD (BUF2),HL 

2600 

CALL 021 FH ('noch 2x 00 hinterher' 

2100 

LD A,1 

2610 

CALL 021 FH 

2110 

LD (FLAS),A 

2620 L7 

JP 1A1BH i'zurueck zur Hauptechleife* 

2120 

2130 

POP HL 

CALL 2337H i'Filenaaen auinerten' 

2660 

END INIT 




V* 




M 


GENIE III 

Mit viel Software, zwei 
Disks, je 800 KB, in sehr 
gutem Zustand nur 
3500,- DM 

Zuschriften bitte unter 
Chiffre 1852 an den Verlag. 


GELEGENHEIT 
GENIE 16 

GENIE 16B mit zwei 
Diskettenlaufwerken, 
Perfect Calc, Perfect Fi- 
ier, Perfect Writer, Tur- 
bo Pascal, Sargon 3, al- 
les Originalprogramme, 
ca. 2 Monate alt, wie 
neu 1 1 1 Nur DM4.000,- 
Zuschriften bitte, unter 
Chiffre 1851 an den Verlag. 
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MARCUS UNGER 



Oder: Wie schwer ist eigentlich 
strukturiertes Programmieren? 


Wie bereits aus der Unterüberschrift er- 
sichtlich ist, handelt es sich bei dieser Serie 
keinesfalls um Propaganda gegen italienische. 
Teigwaren, sondern vielmehr soll mit dieser 
Serie einer weit verbreiteten Unart, dem 
„Hacken" (das einfach-drauf-los-Tippen, ohne 
rechte Idee, was das Programm eigentlich 
können soll) zu Leibe gerückt werden. 
Leider gibt es immer noch viele Hobby-Pro- 
grammierer, die sich beim Anblick einer Ta- 
Statur nicht mehr halten können und einfach' 
drauf los tippen. Besonders bei Anfängern 
ist dies eine weit verbreitete Unart (appro- 
bieren verschiedener Befehle bildet selbst- 
verständlich eine Ausnahme!). Unart? .Wieso 
denn das? Hauptsache, das Endprodukt, der 
Hackerei, das Programm, funktioniert hin- 
terher, oder? Weit gefehlt! Denn was nutzt 
Ihnen, ein Programm, welches Sie nach ei- 
nem halben Jahr selbst nicht mehr verstehen 
können, ohpe es beinahe neu zu schreiben? 
Was!? Das könnte Ihnen niemals passieren? 
Ja haben Sie Ihren Rechner denn schon ein 
halbes Jahr? Nun, Spaß beiseite! Wenn man 
bei Programmen, auch nach einer längeren 
Zeitspanne noch Änderungen einbauen 
möchte, etwa um es an neu erworbene Peri- 
pherie anzupassen, oder das Programm eines 
Anderen an die eigenen Gegebenheiten anzu- 
passen', .hat man es . um so leichter, je 
eindeutiger und strukturierter das Programm 
auf gebaut ist. Außerdem wird die Qualität 
des späteren Programms dadurch bedeutend 
höher. Besonders für Anfänger ist es ratsam, 
daß sie gleich zu Beginn strukturiert: Pro- 
grammieren, denn eine einmal erlernte 
Unart, kann man sich nur schwer wieder ab- 
gewöhnen. Wozu als viel herumquälen ? . ' 

In den verschiedensten Computerfach- 
zeitschriften war ja schon einiges zu lesen 
über die verschiedenen Darstellungsrnöglich- 
keiten von Struktogrammen, aber eine An- 
leitung, wie. rhit dem Werkzeug Strukto- 
gramm umzugehen ist, eine Art Kochrezept, 
wurde nicht mitgeliefert. Ich , hoffej diesen 
Mangel kann diese Serie ausbügeln ! Es sollen 
nämlich nicht nur die Darstellungssysteme 


Bildschirm löschen 
Registerlöschen 


FKK gefunden 


Freien Komunikeh'ons 
Kanal (FKK), suchen. 


Q- Eingeben 


NEIN 


NEIN 


Drucker über 
DC-U kurzschließen 


/Daten über Kon 
/ fusor zurück an 
Operator / 


Tastatur ab fragen 


-^"\Da ten '~- 
•enuged durch- 
'^Lnander^' 


\Orucker mit DC • s 
j sprengen- 


Zeichnung J 


verdeutlicht werden, sondern auch der Um- 
gang damit erleutert werden. 

.Strukturiertes Programmieren ist im 
Prinzip unabhängig von der Programmier- 
sprache. Es gibt selbstverständlich Sprachen, 
die das strukturierte Programmieren 
besonders unterstützen (z. B. Pascal), genau 
wie es auch solche gibt, die es beinahe un- 
möglich machen, (z. B. sehr maschinennahe 
Sprachen wie Assembler). Einige Leute be- 
haupten zwar, in Basic sei strukturiertes 
Programmieren unmöglich, dieses soll uns 
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aber nicht abschr ecken, es auch in dieser 
Sprache zu versuchen. Schon allein deshalb, 
weil unzählige Homecomputer vom Herstel- 
ler mit Basic ausgerüstet sind. Durch be- 
sondere Zusatz- und Hillsprogramme kann 
man, allen Unkenrufen zum Trotz, auch in 
Basic recht gute strukturierte Software er- 
stellen. Eines dieser Zusatzprogramme ist z. 
B. STRUCTURE, welches dem Basic-Pro- 
grammierer schon eine PASCAL ähnliche 
Befehle zur Verfügung stellt. 

Eigentlich sollte jedes Programm eine 
gewisse Grundstruktur aufweisen. Es kann 
Vorkommen, daß einige Elemente dieser 
Grundstruktur sehr klein ausfalien, oder so- 
gar ganz entfallen. Aber im Prinzip hat 
jedes Programm (vom Spielprogramm bis hin 
zum Finanzbuchhaltungsprogramm) folgende 
Grundstruktur: 

Vorbereiten zur Datenauf nähme 
Felder dimensionieren, Konstanten defi- 
nieren, Speicher löschen oder mit be- 
stimmtem Bitmuster füllen... usw, 

Daten entgegen ■ nehmen 
Sowohl durch einiesen aus dem Programm, 
z. B. DATA-Zeilen, oder durch manuell 
eingetastete Werte von dem Benutzer, oder 
durch Übernahme von Tape/Floppy... usw. 

Daten verarbeiten (Programm Ausführung) 
Jetzt wird dereigentlicne Algorhythmus bzw. 
Rechen- Datenverarbeitungs-Vorschrift ab- 
gearbeitet. 

Ergebnisse und Daten ausgeben 

Wie auch immer, in graphischer Form, als 

Tabelle, als Zeichnung... usw. 

Das wichtigste beim Programmieren, und 
beim strukturierten Programmieren im Be- 
sonderen, ist nicht etwa die Arbeit an der 
Tastatur, sondern die vorherige (!) Erarbei- 
tung des Programms am Schreibtisch. Man 
muß das Problem, das auf dem Rechner ge- 
löst werden soll, zunächst einer Analyse un- 
terziehen. Dies ist ein sehr, sehr , wichtiger 
Schritt, der die Qualität des späteren Pro-' 
gram ms entscheiden! mitbestimmt. Damit 
bei diesem Schritt keine Fehler begangen 
werden, bedient man sich einer Art Check- 
liste. Selbst Profi-Programmierer an einer 
Großrechenanlage benutzen eine ähnlich ge- 
artete Checkliste, die selbstverständlich um- 
fangreicher geartet ist, als diejenige, die 
wir benutzen. Sie sollten sich also zu Beginn 
Klarheit, am besten in schriftlicher Form, 
durch Stichpunkte oder Notizen, über fol- 
gende fünf Punkte verschaffen: 


CHECKLISTE 

1. Zweck und Funktion des Programms (Auf- 
gabenstellung). Was soll eigentlich, 
berechnet werden? Wie allgemein soll, das 
Programm später anwendbar sein? ... 

2. Welche Formeln stehen zur Lösung des 
Problems zur Verfügung? Sind diese For- 
meln genau genug? Haben diese Formeln 
Ausnahmen in der Gültigkeit? Können De- 
finitionslücken auftreten? ... 

3. Form der Dateneingabe. 

Welche Daten benötigt das Programm? In 
welcher Form werden die, Daten dem 
Programm zur Verfügung gestellt (über 
Tastatur, aus dem Speicher -DATA- 
Zei len- oder durch Tape/Floppy oder 
über sonstige Wandler -Joystick, usw.-)? 

In welcher Genauigkeitsklasse sind die 
Daten? Welcher Art sind die Daten 
(Alphazeichen, Zahlen) 

4. Anforderungen an das Programm. 

Welche Genauigkeit soll erzielt werden 
(im Zusammenhang mit dem späteren Va- 

\ riablentyp)? Sollen Rundungen bei' Zwi- 
schenergebnissen vorgenommen werden 
(Wenn ja, auf wieviel Stellen)? 

; Sollen Sonderfälle behandelt werden ? 
Wenn ja, welche? ... 

5. Daten Ausgabe 

In welcher Form sollen die Daten über- 
geben werden (Bildschirm, Drucker, 
Tape/Floppy oder über sonstige Periphe- 
rie)? 

Wie sollen die Daten ausgegeben werden 
(Graphisch, als Tabelle, mit Text, im 
ASCII-Format ...)? / 

Eine solche Problemänalyse ist ein zwingen- 
des Muß, auch wenn Sie einfach drauflos 
hacken. Nur werden Sie sich beim Hacken 
einige dieser Fragen eben mal so zwischen- 
durch stellen, wobei Sie wichtige Punkte 
vergessen, oder übersehen können. Sicher 
wird sich die fehlende Organisation zu 
Beginn bald bemerkbar machen, und so muß 
eben eine Änderung hierhin, eine Kürzung 
dort, und- da noch ein Einschub, und ruck- 
zuck ist das Chaos perfekt, und die Über- 
sicht dahin. Wenn Sie sich diese Fragen alle 
stellen, bevor Sie anfangen, dann können Sie 
sicher sein, keine wichtigen Punkte verges- 
sen zu haben, und das Sie eine höhere Über- 
sichtlichkeit über Ihr zukünftiges Programm 
erzielen. 


Wenn Sie sich mit Hilfe der Checkliste 
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einige Gedanken zu dem Programm gemacht 
haben, können Sie beginnen, diese Gedanken 
als eine Art logischen Ablaufplan aufzu- 
schreiben. Dabei gehen Sie noch unabhängig 
von der Programmiersprache vor! , 

Um einen solchen Logikfahrplan zu er- 
stellen, bieten sich Ihnen zwei Darstellungs- 
möglichkeiten an. Zum einen das alte, wohl- 
bekannte Flußdiagramm, zum anderen die 
sog. Struktogramme, die auch nach ihrem 
Erfinder Nassi-Schneidermann-Diagramme 
genannt werden. Beide Verfahren haben ihre 
Vor- und Nachteile. Das Flußdiagramm be- 
steht aus einzelnen Symbolen, die mit Pfei- 
len verbunden sind (siehe Zeichnung 1). So 
ergibt sich eine übersichtliche Darstellung. 
Der Nachteil dieser Darstellungsweise be- 
steht darin, daß das Spaghetti-Programmie- 
ren mit wilden Sprüngen von einem Ende 
zum anderen, von dieser Darstellungsweise 
unterstützt wird. Außerdem besteht ein 
Flußdiagramm aus vielen verschiedenen 
Symbolen, die man leicht wieder vergißt. 
Anders bei den Nassi-Schneidermann-Dia- 
grammen. Dort sind Sprünge erst gar nicht 
vorgesehen, und ein Struktogramm besteht 
aus nur! Vier Grundsymbolen. Der Nachteil 
liegt darin, daß man sich bei sehr langen 
Struktogrammen erst einiesen muß. Mit ei- 
niger Übung wird dies aber kein allzu großes 
Problem dar stellen, und so wollen wir diese 
Darstellungsweise verwenden. Um nun Struk- 
togramme lesen und schreiben zu können, 
müssen wir zunächst noch kurz die vier 
Grundsymbole kennenlernen. Folgende Sym- 
bole gibt es also: 


Zeichnung 3 


Aufruf eines Unterprogrammes 

In die Ellipse wird der Name des. Unterpro- 
grammes eingeschrieben, welches aufgerufen 
wird. Das Unterprogramm selbst wird wie 
ein autonomes Programm dargestellt. Am 
Anfang des Unterstruktogrammes sollte 
jedoch der Name des Unterprogrammes 
kenntlich gemacht werden. 


Zeichnung 4 


Die Alternative oder IF-THEN-ELSE 
Struktur 

Wird die Bedingung der Alternative erfüllt 
(die Aussage ist wahr = true), wird die linke 
Sequenz PI unter JA ausgeführt. Im anderen 
Fall (ELSE) wird die Sequenz P2 unter NEIN 
ausgeführt. Soll die Alternative keinen 
ELSE-Zweig enthalten, ist dieser durch ein- 
faches Durchstreichen zu kennzeichnen. Er 
darf jedoch nicht einfach weggelassen wer- 
den!''' 


ichnun 


Die Sequenz 

Die Sequenz rahmt ein beliebiges Pro: 
grammstück ein. In dem Kasten werden An- 
weisungen und Befehle im Klartext einge- 
tragen. 


BEDINGUNG Z' 

JA 

//NEIN 

Programmsequenz 1 

Programmsequenz 2 

PI 

P2 


'■ . 



2. Ab bru chbeü mg u ng 


Abbtu chöeä'/'\ 


Die Schleife 

Es gibt zwei Arten von Schleifen. Die 
Schleife mit der Abbruchbedingung am An- 
fang, die sog. WHILE-Schleife (Zeichnung 5). 
Das bedeutet, wenn die Abbruchbedingung 
bereits beim Eintritt in die Schleife erfüllt 
ist, wird die Schleifensequenz Ps nicht 
durchlaufen, sondern gleich die der Schleife 
folgende Sequenz. 

Anders bei der Schleife mit der Abbruchbe- 
dingung am Ende. Die sog. UNTIL-Schleife 
(Zeichnung 6). Hier wird die Schleife Ps 
mindestens einmal durchlaufen, bevor auf 
die Abbruchbedingung geprüft wird, 

Es können bei beiden Schleifenarten beliebig 
viele Abbruchbedingungen auftreten (Zeich- 
nung 7), Ist eine der Bedingungen erfüllt, 
darin wird die Schleife verlassen und die 


r.AbbruChteüir iuo 


nachfolgende Sequenz durchlaufen. Ist die 
Bedingung nicht erfüllt, wird in der Schleife 
fortgefahren, bis die nächste Abbruchbedin-r 
gung erreicht wird, an der neu entschieden 
wird. •• v ; ■; 

Diese vier Grundelemente sollten Sie sich 
gut einprägen. Im nächsten Teil werden wir 
dann das erste Struktogramm erstellen. 


ULRICH MAREWSKI 


GRAFIK 


hochauflösenden Grafik des Colour Genie zu 
zeichnen. 

Das Programm ermöglicht die Rotation 
des Körpers um seinen geometrischen 
Mittelpunkt, um alle Achsen, wobei die x- 
Achse horizontal, die y- Achse vertikal und 


Die dreidimensionale Darstellung von Kör- 
pern erfordert in der Regel hohe Rechenge- 
schwindigkeiten und enormen Speicherplatz- 
bedarf. Mit dem nachfolgenden Programm 
ist es jedoch gelungen, beliebige Körper 
unter vertretbarem Rechenaufwand auf der 
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die z- Achse senkrecht auf dem Bildschirm 
steht. 

Außerdem ist eine translatorische, per- 
spektivische Verschiebung des Betrachter- 
standpunktes in ebenfalls allen drei Rieh-' 
tungen möglich. Dies ermöglicht z. B. sich 
durch den Körper hindurch zu bewegen, oder 
an ihm vorbei zu laufen. 

In der grafischen Darstellung erscheint 
am oberen Bildrand eine Skala unter der ein 
Punkt steht. Dieser Punkt läßt sich mit den 
Pfeiltasten, nach links und rechts bewegen. 
Positioniert man ihn ganz rechts, so ergibt 
dies eine Drehung von 180 Grad bzw. maxi- 
male translatorische Bewegung. Ist der 
Punkt ganz links, so bedeutet dies 0 Grad 
Drehung bzw. .keine Ortsveränderung, Es 
sind natürlich auch alle anderen Zwischenpo- 
sitionen möglich (Durch ändern des Para- 
meters 17 jn Zeile 130 lassen sich auch 
andere Laufintervalle als 10 Grad einstel- 
len.). Wer ein Colour Genie neuer Bauart 
besitzt, kann den Parameter IB in der 
gleichen Zeile auf 101 setzen, und nutzt 
damit den gesamten Bildschirm aus. 

Ansonsten wird das Programm normal 
mit RUN gestartet und erklärt sich selbst. 

Was muß man. nun tun, wenn eine neue 
Figur in das Programm eingegeben werden 
soll? V . . ' 

Zunächst zeichnet man sich diese in ein 
beliebiges Koordinatensystem ein. Z. B. so : 


Man nummeriert alle Anfangs- und Endpunk- 
te der Linien durch. Dann werden alle Lini- 
en mit Nummern versehen. Im Beispiel der 
Pyramide ergeben sich 5 Punkte und 8 
Linien. 


Punkt x y z 
1 


2 10 1 . 

3 1 0 0 

.4000 
5 .5 1 .5 

Nun muß noch geklärt werden, welche 
Punkte zu welchen Linien gehören: 


Linie 

Punkt 1 

Punkt 2 

1 

1 ' 

2 

■ 2 

2 

3 

3 

3 

4 

4 

4 

.1 

5 

2 

5 

6 

. 3 

1 5 

7 

4 

5' r 

8 

1 

5 . ' 


Im Programm löscht man die alte Figur, in 
dem man die DATA-Zeilen ab 2490 durch 
die neuen DATA-Statements ersetzt. 

Die neuen DATA-Zeilen werden wie 
folgt eingegeben: 

1. Anzahl der Punkte (hier = 5) 

2. Punktkoordinaten 

3. Anzahl der Linien (hier = 8) 

4. Die Punktnummern, die jeweils eine Linie 
begrenzen. 

Sie sehen also für die Pyramide so aus: 

2490 DATA 5, 0,0, 1,1, 0,1, 1,0, 0,0, 0,0, .5, 

1,-5 

2500 DATA 8, 1,2, 2, 3, 3, 4, 4, 1,2, 5, 3, 5, 4, 5, 

1,1 ■ . : - 

Die. Positionierung und Größe der Figur im 
Koordinatensystem sind beliebig. Das Pro- 
gramm sucht sich automatisch einen günsti- 
gen Standpunkt als Anfangsstellung aus, so 
daß nicht die Gefahr besteht, hinter dem 
Objekt zu stehen, und somit die Orientie- 
rung zu verlieren. 

ACHTUNG! Beim Eingeben der DATA-Sta- 
tements muß genau gearbeitet werden, da 
das Programm auf Fehler mit falscher 
Darstellung oder Fehler reagiert. 

SO DEFINT l-N 

60 CLS: PRINTf 410, “PRQ6RAHM 3-nMOOOiGOSUB 2470 
70 READN1 i OIREX (NI ) ,EY (Hl ) , EZ (NI ) , Al (NI ) , AY(N1 ) , AZ (NI) 

80 F(mi«l T(»ll t REAOX t READYi READZ (EX < I ) »X i EY ( 1 ) -Yi EZ ( 1 ) -Z t N 
EXT 

90 READ N2iDIH ID(N2,2) 

100 FORI-lTON2iREADUiREAD12tlD(I f 1)«I1:ID(1,2)>I2 iNEXT 
110 N3»«2l2iDlHFX(R3) , FY (R3) , FZ (N3) ,11(100) ( N1 (100) , EK(2, 
2) 

120 60SUB 320i RER LOKALES SYSTEM 
130 IL»0i 18-159: IT-Oi IB»95s 
140 fiOSUB 630: RER HENUE 



Die Koordinaten der Punkte sind: 


0 0 1 


38 GENIE DATA 


130 IF 1800 NI-0 

160 IF 18-1 GOTO 310 

170 IF 18-4 60TO 140 

180 FCL 8 : F 6 Ri FC0L0UR4i 19*2 

190 Z1-.3: XL-. St-Zl : XR»-XLi YT-. YB--VT 

200 60SUB. 750:REH ERSTE POSITION 

210 608UB BlOiREH ROTATION 

220 60SUB 1230* REH ELEHENTRECHNUNG : 

230 GQGU 8 1550i REH SCHNEIDEN DER LINIEN 
240 60SUB 2010: REH PLQTTEN 
250 60SUB 2180i REH STEUERUNG 

2&0 IF isoo; 

270 IF 18*4 60TO 140 
280 IF IS-2 GOTO 200 
290 IF IS-1 GOTO 310 
300 GOTO 210 
310 END 

320 REH SUBROUTINE LOKAL 

330 Xl s lE12i X2*=1E”12:Y1-1E12» Y2-1E-12: Zl-lE12t Z2-1E-12 

340 F0RI-1T0N1 

350 X-EX ( 1 1 1 Y-EVd ) ■ Z-E2 

360 IFX>X2THENX2-X 

370 IFY>Y2THENY2«Y 

380 IFZ7Z2THENZ2-Z 

390 IFZ<Z1THENZ1<<Z 

400 IFY<Y1THENY1<<Y . 

410 IFX<X1THENX1-X 
420 HEXT 

430 DX“X2-X ! « DV-Y2-V1 sDZ*Z2-Zl iPX-Xl+DX/2i PY-Yl+DY/2iPZ-Z 
l+PZ/2 

440 FORWTÖNl 

450 EX ( I J-EX(I) -PXlEY ( I > «EY 1 1 ) -PY *EZ U > 

460 HEXT 
470 RETURN 

480 REH SUBROUTINE SKALA 

490 FC0LDUR3 

500 Il-4i Jl»10tJ2-100 

510 PLOT 81, II TO 32, II 

520 11-2*12-6 

530 F0R1-1T03 

540 PLOTJljU TO J1,I2 

550 31-31+45 

5*0 NEXT 

570 31-101 11-3*12-3 
580 F0RI-1T018 
590 PLOTJ 1,11 TQJ 1,12 
600 Jl-Jl+3 
610 NEXT 
620 RETURN 

630 REH SUBROUTINE HELP 
640 CLS 1 L 6 R 

650 PRINT’IH HELP-HODUS SIND FOLGENDE BEFEHLE ZULAESS 
16: '0)3 RETURN ZURU 

ECK IN GRAFIK 0 PR06RAHHLAUF BEENDEN 

H HELP AUFRUFEN* 

660 PRINT* PRINT: PRINT* PRINT 

670 PRINT* IH 6RAFIK-H0DUS SIND FOLGENDE BEFEHLE ZULAES 
SIG: 3)'° X/S DREHUNG 

UN X-ACHSE Y /6 DREHUNG UN Y-ACHSE 

Z/A DREHUNG UH Z-ACHSE* 


1 ANFANGSSTELLUNG 


L LINKS 


U 


Q' PROGRAH 



680 PRINT* V VORNAERTS 

N RUECKNAERTS 

R RECHTS 

0 OBEN 
TEN* 

690 PRINT* 

H HELP 
H BEENDEN* 

700 IFPEEK(iHFB40)»l THEN IS-OiBOTQ 740 
710 IFPEEK (liHF804) «2 THEN IS«liGOTO 740 
720 IFPEEK IIHF802)=1 THEN IS«4:GQT0 740 
730 6QT0700 
740 RETURN 

750 REH SUBROUTINE STAND 

760 CX-PX: CY-PY* XI» (DZ-+Z1 tDX/XR) /2: X2»<PZ+Z ItDY/YT) /2 
770 IFX2>X1THENXI=X2 
780 CZ-PZ-1.UX1 
790 Sl-SflRIDXtDX+DYtDY+DZtDZ) 

800 RETURN 

810 REH SUBROUTINE ROTATE 
820 IFIS-2G0T0 1190 
830 1FIR-4 THEN NI-0 
840 IFIR-4 THEN IR=I9 
850 IFIR-I9 THEN HUNl-NUNJ+NI 
860 IFIR-I9 GOTO 880 
870 N-N+1:H1(N)»N! 

880 I9*1R:IHN)*IR 
890 F0RI-1T0N1 

900 AX lil.-EX (!) t AYID-EYU) 1 AZ (I)-EZ(l) 

910 NEXT 
920 F0RK-1TQN 
930 3=11 (K) 

940 ONJ GOTO 970,1030,1090 
950 next 
960 60T0 1150 

970 SI-SINlNl (K) ) tCG-CDS (Hl (K) ); 

980 FORI-1TON1 
990 X-AY(I)lCD+AHmSI 
1000 AZ ( I ) -AY(I) S8I+AZ (I ) tCO* AY ( I)»X 
1010 NEXT 
1020 GOTO 950 

1030 SI-SIN (Hl IK! I :C0»C0B(N1 <K) ) 

1040 F0RI-1T0N1 
1050 X-AX < I ) tCO-AZ ( 

1060 AZ ( I ) =AX ( I ) ISI+AZ ( I ) tCOl AX ( 1 )-X 
1070 NEXT 
1080 GOTO 950 

1090 SI-SIN(Nl(K))iCO-COS(Nl (K)) 

1100 FORI-lTONl 
1110 X=AX(!)tCQ-AY(I)ISI 
1120 AY (1 > «AX ( I ) ISI+AY II ) ICO: AX (I ) -X 
1130 NEXT 
1140 GOTO 950 
1150 F0RI-1T0N1 

1160 AX(I)-AX(I)+PXiAY(I)-AY(1)+PYjAZ(I) b AZ(I)+PZ 
1170 NEXT 
1180 RETURN 
1190 FORI -1 TO 100 
1200 IHI)«OiNl(I)=0 
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1210 HEXT 

1220 N*0iHI=0:60TQ B70 
1230 RE« SUBROUTINE ELEMENT 
1240 FORI 3 1 TDN2 ■ 

1250 J1=ID ( 1 , 1 ) s J2=ID ( 1 , 2) « 1 1=241-1 
1 260 FX ( I ! ) »AX < J 1 ) : FY IM) -AY ( J 1 1 < J 1 ) 

1270 FX<I2)-AX{J2.) iFY(I2)-Ay(J2):FZ(I2)-AZ(J2) 

1280 NEXT 
1290 X=CZ+Z1 
1300 F0R1MT0N2 

1310 I l=2t I -1 1 12=2t Ti VI =F2 ( 1 1 > (12) 

1320 IFY1)XANDY2>X GOTO 1420 

1330 IFyi<XANDY2<X 60T0 1440 

1340 Xl-YU (CZ+Zl ) : X2*CZ : SI=Y2-Y1 :C0=< X2-X1 ) /SI 

1350 IFY2<Y1 GOTO 1390 

1360 FX<I1)=FX(I1) +COKFX (12) 

1370 FY ( II ) *F Y ( I 1 ) +C0* (FY I 12) -FY ( I 1) ) 

1380 FZ ( II )=GZ+Z1 sfiOTO 1420 

1390 FX(I2) a FX(I21 +COI (FX (II) -FX4I2) > 

1 400 FV ( 12) =F Y 4 1 2) >C8* I F Y < 1 1 I2> ) 

1410 FZ(I2)«CZ+Z1 
1420 NEXTI 
1430 GOTO 1480. 

1440 FZ II1)=CZ+2IZ1:FZ (12)=FZ(I1) 

1450 FY(I1)*CY:FY(I2)«-CY 
1460 FX ( II )=CX*10IXRi FX (12) =FX 
1470 6OT0 1420 
1480 F0RI-1T0N3 

,1490 FX < I ) =CX-FX < I ) s FY ( I > =CY-FY ( I ) i FZ ( I ) =CZ-FZ ( I ) 

1500 NEXT 
1510 F0RI=1T0N3 

1520 FX (I) *FX (I) 4Z1 /FZ (I) iFY(I) *FY(I ) (I) 

1530 NEXT 
1540 RETURN 

1350 REN SUBROUTINE PLOT 1 
1560 F0RIMT0N2 
1570 11=2*1-1:12=2« 

1580 X1=FX(I 1 ) i Y1=FY(1 1 ) : X2=FX ( 12) : Y2-FY ( 12) 

1590 X=ABS(XI):Y=ABS(X2):Z=ABS(Y1):Z2=ABSIY2> . 

1600 IF X<=XR AMD Y<«XR AND Z<«YT AND Z2<*YT JHEN GOTO 17 
70 . 

1610 J1=0 

1620 Al=XL:A2=XRiBl=YBiB2=YB 

1630 GOSUB 1790: REH CUT 

1640 A1=XL:A2=XR:B1=YT:B2=YT 

1650 GOSUB 1790 

1660 Al=XL:A2=XLiBl*YB:B2=YT 

1670 GOSUB 1790 

1680 Al»XR:A2=XR:Bl»YBiB2=YT 

1690 GOSUB 1790 : . 

1700 IF Jl<>2 THEN 1720 

1 7 1 0 X IsEK U , 1 ) i Yt =EK ( 1 , 2) : X2“EK ( 2 1 1 ) f Y2*EN (2 » 2) : GOTO 176 
. 0 ' ' . , 
1720 IFJ1*0 THEN X1=1001:60T0 1760 ' > 

1730 IFX>XRORZ>YTTHENXl=EK ( 1 , 1 > : Y1=EK ( 1 , 21 i 
1740 IFY>XR0RZ2>YT THEN X2«EK(l,l):Y2»EK(i,2) 

1750 GOTO 1760 

1760, FX 1 1 1 ) »X 1 : F Y ( 1 1 ) *Y 1 : FX ( 1 2) *X2: FY ( 12) =Y2 
1770 NEXTI 
1780 RETURN 



1790 REN SUBROUTINE CUT 

1800 SI=Ö:C0=0:ES=1E-3:D1=-ES:D2=1+ES 

1810 F1=X2-X1:F2=Y2-Y1 

1820 IF F1=0 GOTO 1B60 

1830 IF F2=0 GOTO 1880 

1040 SI= < (Al-Xl ) /Fl - (Bl-Yl ) /F2) / ( (B2-B1 ) /F2- (A2-A1 ) /Fl ) 
.1850 GOTO 1900 

1860 IF A2=A1 THENSI=2i GOTO 1900 
1870 SI=(X1-A1)/(A2-A1):60TO 1900 
1880 IFB2*B1 THEN S 1=2 f GOTO 1900 
1890 SI=TY1-BI)/(B2-B1): GOTO 1900 
1900 IFSDD20RSKD1 GOTO 2000 
1910 IF F1=0 60T0 1940 

1920 IF F2=0 GOTO 1950 

1930 C0=(A1+SII(A2-A1)-X1)/F1:G0TD I960 
1.940 CQ«<B!-Y1)/F2:G0TQ 1960 
1950 C0«(A1-X1)/F1:G0TD 1960 
1960 !FCD>D20RC0<D1 GOTO 2000 
1970 Jl-Jl+1 

1980 DI°Xl+CDIFliD2=Yl+C0IF2 
1990 EK(JI,l)=Dl:EK(ji,2)*D2 
2000 RETURN 

2010 REH SUBROUTINE PLOT 
2020 FGRI=1T0N3 
2030' FX(I)=I8*IFX(I)+XR)/2/XR 
2040 I FFX ( I K OFX ( I ) =0 
2050 FY{1)=IB*(FY(1)+YB) /2/YB 
2060 IFFY(IX0FY(I)=0 
2070 NEXT 

2080 PLAY ( 1,4, 5,15): J=500: 60SUB2470: PLAY ( 1 , 4, 5, 0) i FCLSs FC 
0L0UR4 

2090 PLOTIL, IBT0I8, IB:PL0TI8, IBT018, IT:PL0TI8, ITTOIL, ITjP 
LOTIL, ITTOIL, IB 
2100 FC0L0UR2 
2110 F0RI-1T0N2 

2120 11=211-1: 12=2*1 ^ .. 
2130 XI »FX < II ) : X2=FX 4 1 2) i Y 1 -FY dl) : (12) 

2140 IFXD170 GOTO 2160 
2150. PLOTXI, Y1T0X2,Y2 
2160 NEXT • ■ - 

2170 RETURN 

2180 REH. SUBROUTINE LAUF 

2190 IS*0:IR=4 

2200 GOSUB 480: REH SKALA 

2210 IFPEEK(*HF8Q4)=2 THEN IS=1 

2220 IFPEEK(iHF810)=2 THEN IS«2 

2230 IFPEEK (4.HF802) =1 THEN IS=4 

2240 IF IS»1 OR IS*2 OR 1S=4 THEN 2450 

2250 IFIX410 THENIX-10 

2260 IFIXMOO THENIX=100 

2270 NPL0TIY,8:PL0TIX,8 

2280 lFPEEKItHF840)*32 THEN IY=IX:IX=IX-I7 : 

2290 IFPEEK (*HFB40)=64 THEN IY-IXs IX-IX+I7 
2300 A1=S1*(IX-10)/90 

2310 IFPEEK (6HF802) =16 THEN CX*CX+A1: GOTO 2450 
2320 IFPEEK (IHF804) »4 THEN CX»CX-A1 s 60T02450 
2330 IFPEEK (6HF802) =128 THEN CY=CY-A.l : GOTO 2450 
2340 IFPEEK(4HFB04)«32 THEN CY=CY+A1:60T0 2450 
2350 IFPEEK (IHFB04) =64 THEN CZ-CZ+Al : GOTO 2450 
2360 IFPE£K(4HF804)*128 THEN CZ=CZ-A1: GOTO 2450 
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2370 A2»3. 14159261 (IK-10J/90 
2380 IFPEEK(liHF80B)=l THEN HI=A2s IR=1 tS0T02450 
2390 IFPEEK(&HFB04)*B THEN HI-A2: lR=li6QT0 2450 
2400 FFPEEK (fcHF808) *4 THEN Hl«A2;IR*3i60T02450 
2410 lFPEEK(4HFB01)-2 THEN HI-A2: IR*3: GOT02450 
2420 IFPEEK(6HF8QB)=2THEN HI=A2i IR=2l GQT02450 
2430 IFPEEK (JtHFB JO) =64THEN MI=-A2» IR=2i 60TQ2450 
2440 GOTO 2210 

2450 PLAY (1,5, 2, 15) : J=30ö:S0SUB2470i PLAY 11,5,2,0) 


2460 RETURN 

2470 REN PAUSE 

2480 FDRI=lTOjjNEXT: RETURN 

2490 DATA20, 1,0,0, 2, 0,0, 3, 0,0, 4, 0,0, 5, 0,0, 6, 0,0, 6, 1,0, 6, 2 
,0,6, 3, 0,6,4, 0,6, 5, 0,5, 5, 0,4, 5, 0,3, 5, '0,2, 5,0, 1,5, 0,1, 4,0, 
1,3, 0,1, 2, 0,1, 1,0 

2500 DATA12, 1,6, 20, 7, 19, 8, 18, 9, 17, 10, 16, 11, 1,16, 2, 15, 3, 14 
,4,13,5,12,6,11 


WOLFGANG SEIFERT 


^ S tsoft^ ate 

Stett ef8 ä 

riege 


Es handelt sich hier um ein Treiberpro- 
gramm für die serielle Schnittestelle. Es 
kann dazu benutzt werden, um Daten, wie z. 
B. Programmlistings, an einen seriellen 
Drucker oder ein Terminal mit V.24 Schnitt- 
stelle auszugeben. 


Dazu müssen die Anschlüsse TXD und 
Masse des seriellen Port mit dem Periphe- 
riegerät verbunden werden. Bei einem 
Drucker ist darauf, zu achten, daß er keine 
Daten empfangen kann, während er mit der 
Ausgabe beschäftigt ist. Dazu kann der Ein- 
gang Carrier Detect mit einem Ready-Signal 
des Druckers verbunden werden. Dieses 
Signal muß geeignet abgefragt werden. 

Die Baudrate kann in Zeile 290 des 
Assemblerlistings geändert werden. 


220 

ENTRY 

EQU 66H 


230 

LF'ORT 

EQU 43 ICH 

; PORT FF DATEN 

240 

PORT 

EQU OFFH 

; AUSGABEPORT 

250 

B 1 10 

EQU 220H 

; 110 BAUD 

260 

B300 

EQU 0C8H 

; 300 BAUD 

270 

Bl 200 

EQU 2DH 

; 1200 BAUD 

2BO 

B2400 

EQU 15H 

; 2400 BAUD 

290 

BAUDR 

EQU Bl 200 

; EINGESTELLTE I 

300 


■ • 


310 


QRG 4800H 

; ODER ANDERER 1 

320 


• 


330 


PUSH AF 


340 


PUSH BC 


350 


PUSH HL 


360 


LD HL, BYTE+-1 


370 


LD B,S 

;B BITS 

380 

LOOP1 

RRA 

; IN CARRY-FLAG 

390 


JR C, L00P2 


400 


RES 1 , (HL) 

; BIT = O 

410 


JR LQOP3 


420 

L00P2 

SET 1, (HL) 

; BIT =1 

430 

L00P3 

IIMC HL 


440 


DJNZ LOOP1 

; NAECHSTES BIT 

450 


■r . • - 


460 


; AUSGABE 


470 


LD HL, BYTE 


480 


LD B , 1 1 


490 

LOOP4 

LD A. (LPORT) 
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500 


SET 1, A 

690 , 

POP BC 


510 


AND (HL) 

700 

POP AF 


520 


ÜUT (PORT) , A 

710 

RET 


530 


INC HL 

720 

• - • : , 

4 


540 


CALL DELAY 

730 

; HILFSSPEICHERZELLEN 

550 


DJNZ LDQP4 

740 BYTE 

DEFB OFDH 

; FUER STARTBIT 

560 


POP HL 

750 

DEFW OFFFFH 

; 8 DATENBITS 

570 


POP BC 

760 

DEFW OFFFFH 


580' 


POP AF 

770 

DEFW OFFFFH 


590 


RET 

780 

DEFW OFFFFH 


600 


« • ••••; 

7*?.0 

DEFW OFFFFH 

; 2 STOPBITS 

610 


: VERZOEGERUNS 

800 

■ 


620 

DELAY 

PUSH AF 

aio 

END ENTRY 


630 


PUSH BC 




640 


LD BC, BAUDR ; BAUDRA' 

TE 

(g) 


650 

660 

DLY1 

DEC BC 
LD A, B 



670 


DR C 



680 


JR NZ, DLY 1 




FLORIAN NOLD ■ 


MONITOR 


Laut Angabe des Video Genie General Im- 
porteuers besitzen, die VG’s, die mit einem 
Level IV Zusatz-ROM ausgestattet sind, 
anstelle eines Maschinensprachemonitors 
Routinen für Shorthand-Eingabe, Autorepeat, 
Hardcopy, usw. Am Ende dieser Routinen' 
befindet sich jedoch bei vielen Level IV 
ROMs noch ein Monitor-Bruchstück. Es 
beginnt bei 3509.H und geht bis 36FEH. 
Nach dem Starten des Monitors mit 
"SYSTEM" und "/ 13577" wird ein "//" als 
Prompt ausgegeben. Der Monitor verarbeitet 
folgende Befehle: 


A Hexadresse 

ASClI-Dump 

Startadresse. 


ab 


der angegebenen 


D Hexadresse 

Hexadezimaler Dump ab der Startadresse. 

E Hexadresse 

Listen und verändern einzelner Bytes im 
RAM (ab 4000 H) an Hexadresse; z. B.:- 
E400 00 25 

ändert das Byte E400H von 00 in 25. Mit 
NEWLINE bleibt der alte Zustand erhalten 
und das nächste Byte wird ausgegeben. 

H Dezimaizahl 

Umrechnung der Dezimal- in eine Hexadezi- 
male Zahl. 

J Hexadresse 

Sprung zur Hexadresse 


P aaaa bbbb cccc 

Bruchstück eines Punch-Befehles. Sollte 
normalerweise den Bereich von aaaa bis 
bbbb mit der Einsprungadresse cccc auf 
Cassette abspeichern, steigt aber nach Ab- 
frage des Programmnamens mit "NAME?" 
aus. 

'R : . 

Restart, entspricht HUMP 0000. 

S aaaa bbbb cc 

Sucht den Bereich von aaaaH bis bbbbH 
nach dem Byte ccH ab. 

X aa bb 

Wandelt aa und bb in dezimale Zahlen um 
und berechnet Summen und Differenzen. 

Leertaste 

Hält laufende Vorgänge an. Durch Drücken 
einer beliebigen Taste wird der Vorgang 
fortgesetzt. 

BREAK-Taste 

Bricht laufenden Vorgang ab. 

Dieser Monitor ist zwar nicht so komfor- 
tabel, wie ZBUG, er benötigt dafür aber 
keinen Speicherplatz im RAM. Ich benutze 
ihn unter anderem,, um die Länge und Ein- 
sprungadresse eines Programmes festzu- 
steileh. Dazu gebe ich A400 ein. Nun wird 
das Programm in ASCII-Zeichen gelistet. 
Sobald nur noch Punkte erscheinen, ist das 
Programmende erreicht. In den Bytes 
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40DFH (LSB) und 40E0H (MSB) steht die 
Einsprungadresse (Entry Point), z. B. 40DFH 
00 und 40E0 70. 

Die Einsprungadresse des Maschinenpro- 
gramms lautet also 7000H. Folglich kann 
man mit J 7000 das Programm starten. 

Noch zwei Adressen: Mit J 3039" kann 


man das Level IV ROM initialisieren. Mit 3 
06CC kommt man direkt ins Basic zurück 
(sog. Warmstart). Einen kleinen Schönheits- 
fehler hat der Monitor allerdings noch: Ab 
und zu wird beim ASCII-Dump nicht die 
ganze Bildschirm.breite ausgenutzt und weni- 
ger als 48 Bytes gelistet. 


EGON WEILER 

#*#»*»*»*•*•*** 

DIESES PROGRAMM IST SELBSTERK1.ÄREND! 


vÄv.''.v‘ 




10 CLEAR : CLS i, 

20 PRINTS480 . "tloechten Sie eine Programmbeschr e i bung ? ; <. J. 

/ N ) ” • ' . ’ . 

30 UP$-INKEY*.: IF UP$= ”N ”THEN 50 ELSE 40 
40 I F . UP$= " J ”THEN 1 890 ELSE 30 ■ ’ 

50 CLS 

60 FORI = 1 T048 : PR 1 NTCHR$ f 23 1 ) ; : NE-XTI 

70 PRINT S?2,CHR$C231 FORI = 1 TOI 5;PRI NTCHR* C231.V MEXTI 

80 PRINTS 91- , "(Gehirn-Training) ” : PRINTS 1 1 2 , CHR*<' 23.1 ) ; : F- ORT - 1 TO 1 5 : PR I NTCH 
R$( 23 1.) ; NEXTI 

90 PRINTS 152,CHR$C2'3.1 : F0RI = 1T047: FRtNTCHR*C231 NEXTI 

100 PRINTS 333, "Geschrieben ” : PR INT S 373 , ” 1 984 von PR INT § 453 , ”Eqon IJei. 
ler” : PRINTS493, "Am Sande 9 ” : PR I NT S 533 , " 3 1 1 0 Uelzen” 

110 PRINTS 720 , "UAEHLEN SIE: Buchstaben und 2 

ahlen (Stufe 1) =1 Graf i k-Symbo 1 e (.Stufe 2) .= 2”:K$=lNkE 

Y$:IF K$=”2"THEN 140 ELSE 120 
1.20: IFK$~”1 "THEN130 ELSE 110 ' • 

130 K=1 : GOTO 150 

140 K=2 : GOTO 150' ' ' ' 

150 PR INT §880 , "Geschwindigkeit (1 sek. im Wechsel) = 1 Geschwindigkeit 
(2 sek. im Uechsel ) = 2 ” : Q$= I NKEY$ : T FQ$=? ” 1 ”THEN 1 70 ELSE 160 
160 iF Qf=”2”THEN 180 ELSE 150 . 

170 E= 1 : F= 1 50 : H = 30 : GOTO l 90 q\ 

180 £=2:F=300: H=67 .' 1642: GOTO 190. /qQ\.OVJp ) • / 

190 IF E= 1 THENN=- 1 l QfcN'fc J 

200 IF E=2THENN=-2 ' 

210 GÖSUB 1 840 ' - 

220; CLS: PRINTS 43 , CHR$( 236) ; : FOR I.= 1 TOT : PR I NTCHR$( 2 1 7) ; : NEXTI : PRINTS51 ,CH 
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R3K237*: PR 3 NT «55 , CHR$C236) ; : FÜR I - 1 TÜ9 : PR I NTCHR* < 2 1 7 > ; : NEXTI : PR INT §65, CH 
R»<237>, : PR I NT §69 , CHR$ ( 236 ). : : FORI = 1 TQ5 : PR I NTCHRfcC 2 1 7 ) ; ; NEXTI : PRI NTS 75 , , 

CHR$C23? > 

23.0 Ü=83 : L=91 : FOR 1 =1 TO 1 1 : PR I NTS U . GHR*< 225 ) : PRINT §L , CHR*C 225 ) :U=U + 40 : L = L 
>40 : NEXTI -. PR INTS 204 ,;CHR$<. 2.17) ; : FOR 1 = 1 T06 : PR I NTCHRS (217) ; : NEXTI : PRINTS 21 
1 ,CHR3H'225> : PRI NT § 523 , CHR$ C 239 ) ; : F0RI = 1T07: RR I .NTCHR* < 2 1 7 ) ; : NEXTI : PRINTS 
53 1 , CHR* C 240 ) 

240 PR I N T § 95 . CH R $ < 225 ) : PRINTS 100 , " : ” : PR I NTS 1 05 , CHR$ ( 225) : PR I NT § 1 35 , CHR$ 
<239) ; : F0RI-1T09: PR I NTCHR$( 21.7) ; : NEXTI : PRI NTS 145 , CHR$C 240 > . " 

230 R=109: T= 115: FORI = 1 TO20 : PR INTSR, CHR$ < 225 ): PR I NT S f , CHR$ < 225 > : R=R + 40 : T 
=T+40: NEXTI 

260 PR I NT § 255 , CHR$< 236) ; : FOR I = 1 T09 : PR I NTCHRS C 2 1 7 ) ; :NEXTI : PR I NT S 265 . CHR$ 

C 237 ) : PRI NT § 295 , CHR$ < 225 ) : PRI NTS 297, "Hin: Sek”.: PR INT S 305 , CHR$< 225 ) : PRI NT 
S 336 , CHR$ C 2 1 7 ) ; : F0RI = 1T08 : PR1NTCHR$<217) ; : NEXTI : PRI NT §335 , CHR$C225) :.PRI 
NTS 345 ,CHR$(225) . : / 

270 PRINTS 375 , CHR$ ( 2.25 ) : PP. I NT § 385 , CHR$ < 225 ) : PR I NT § 4 1 5 , CHR$ <239 ) ; : FORI - 1 
T09 : PR I NTCHR$< 21 ? ) : : NEXTI : PRI NTS 425, CHR$< 24.0 > 

260 PRINT §5 35 , CHR$ C 236 > ; : F0RI = IT09: PR 1 NTCHR$< 2 1 7 ) ; : NEXTI : PR I NT S 545 , CHR$ 
<237 ) : Y=575 : U=585 : FOR I = 1 T07 : PR I NT S Y , CHR$< 225 ) : PR I NT § U , CHRt < 225 ) : Y=Y + 40 : 

U = U+40 : NEXTI : PR INT §576 , ”moegl iche”: PR I NT § 6 1 6 , " — : PR I NTS 656 , "Pun 
ktzahl ” : PR I NT S 696 , CHR* < 208 ) ; 

290 FOR I = 1 T08 : PR I NTCHR$ < 208 ) ; : NEXTI 

300 PR INT §737 , CHR$<236) ; : F0RIMTO5: PRI NTCHR4<21 7) ; : NEXTI : PR I NTS 743 , CHR$ 
<237) : PRI NT §777 , CHR$< 225 ) : PR I NTS 783 , CHR* < 225 ) 

310 PR i NTS 76 , CHR$< 218.) : PR I NTS 1 56 , CHR$ <2 1 8 > : PR I NTS 236 , CHR$<2 18 ) : PRINTS 31 
6 , CHR$ < 218) : PR I NTS 396 ,CHR$<218) : PR I NTS 476 , CHR$< 2 1 8 ) ..: PR I NT § 556 , CHR$ < 2 1 8 ) 

: PRI NT §636 , CHR$<218) : PR INT §7 1 6 , CHR$ < 2 1 8 ) : PR I NT § 796 , CHR$< 2 1 8 ) : PR I NT § 876, 
CHR$< 21 8 ) . 

320 PRINT §77; ” 10” : PRI NTS 158 , ”9”: PRI NTS 238, ”8” : PRI NTS 31 8, ”7" : PRI NTS 398,,” 
6” : PRI NTS 478, ”5”: PR INT §558, ”4 " : PR I NT § 638 , ”3": PR INT §71 8, ”2” : PR I NT § 798 ” 1 
PRI NTS 878, "0” 

330 PRINTS 162, CHRSK 255) : PRI NT S 1 72 , CHR$ < 253 ) : PR I NT § 482 , CHR$ < 255 ) : PR INT §4 
92 , CHR* < 253) : PR I NTS 1 65 , : PRINT § 169 , ■ 

340 PR I NT § 1 54 , ” * ” : PR I NT §234 , " * ” : PR I NT § 3 1 4 , ” * ” : PRI NTS 394, PRINT § 474 , ” 

* ” : PR INT S 554 , " * ” : PR I NT § 634 , ” * ” : PR INTS 71 4 , ” * " : PR I NT §794 , ”* 

350 PRI NT ST 10 , ” * ” : PRI NTS 190 , ” * ” : PR I NTS 270 ..." * ” : PR I NT §350 , ” * " : PR I NT § 430 , ” 
PRINT §510 , ” * ” : PR I NT § 590 , PR INT §670 , ” * ” : PR INT §750, : PRI NTS 830 , ”* 

»1 

360 PR I NTS 8 15 , CHR$ < 225 ) : PR I NT § 8 1 7 , CHR$ < 239 ) ; : F0RI = 1T05: PR I NTCHR$ < 2 1 7 ) ; : 
NEXTI : PR INTS 823, CHR$< 240) 

370 PRINT S 855 , CHR$ ( 239 ) ; : FOR I = 1 T09 : PRI NTCHR* < 2 1 7 ) ; : NEXTI : PR I NT § 865 , CHR$ 
<240) : PR I NT §869 , CHR$ < 225 ) : PR I NTS 874 , ” * " : PR I NTS 875 , CHRS <225 ) 

380 PR INT S 909 , CHR$ < 225 ) : PRINT § 9 1 0 , CHR$ < 1 95 ) ; : FORI = 1 T04 : PRINTCHRSK 1 95 ) ; 
NEXTI : PR I NT §91 S , CHR$ < 225 ) 

390 PRINT§949,CHR$C239) ; : FOR I = 1 TOS : PRI NTCHR5 < 2 1 7 ) ; :NEXTI : PR I NT S 955 , CHR$ 
<240) 

400 PR INT §96, A : PRINTS 101 ,B 
410 PR INT §378, "00”: PR INT §381 , ”00” 

420 I FK= 1 THENGOSUB450 
430 IFK=2THENG0SUB1 360 
440 GOTO960 
450 Y=RND< 10) 

460 IF E=2THENN=N+2 
470 IF EDITHEN N=N+1 
480 IF N=60THENN=0:H=11+1. 

490 IFN< 10THENPRINT§378,n 
500 I FN< 1 0THENPRI NT § 381 , N 
510 IFY=1THEN0$=”A” 

520 I FH >9THENPRI NT § 377 , II 
530 IFN >9THENPR I NT § 380 , N 
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540 PRINTS380 , " : " 
550 , 1 FM= 1 0THEN 1 3 1.0 
560 I FY=2THEN0$= ”B " 
570 IF'Y=3THEN0$="C” 
580 I FY=4THEN0$= "D” 
590 IFY=5THENQ$=”E" 
600 I F Y=6THEN0$= ” 1 ” 
610 I FY=7THEN0$= ” 2 ” 
620 I FY = 8THEN0$= ”3 ’’ 
630 IFY=9THEN0$=”4” 
640 IFY=10THENO$=”5 
650 Z=RND( 10 ) - 
660 I FZ= 1THENP*=”A ” 
670 I FZ=2THEMP$= ”B ” 
680 IFZ=3THENP$=”C” 
690 I FZ=4THENP$= ”D” 
700 I FZ=5THENP$= ”E ” 
710 I FZ=6THENP$=” 1 ” 
720 iFZ=7THENP$=”2” 
730 IFZ=8THENP$=”3” 
740 IFZ=9THENP$=”4 ” 






GOSU 
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1110 IFA=4THENPRINT§630 ,CHR$( 195) ; : GOSUB 1810 : PRI NT §590 , CHR$( 1 95) ; : GOSUB 

1810 ' t ' 

1120 IFA=5THENPR1NT§550 ,CHR$C 1 95 ) ; : GOSUB 1810: PRINTS 510, CH R$( 195) ; : GOSUB 
•; 1810 ; 

1130 IFA=6THENPRINT§470,CHR$( 195) : : GOSUB 1 810 : PRINTS 430 , CHR$( 195) ; : GOSUB 

■1830 -K. : .'v : , :■ 

1 140 I FA=?THENPR INT § 390 , CHR$ ( 195) ; : GOSUB 1810: PR I NT § 350 , CHR$ ( 1 95) ; : GOSUB 
1810 

1150 1FA=8THENPRINTS310 ,CHR$( 195) ; : GOSUB 1 81 0 : PRI NT § 270 , CHR$( 1 95 ) ; : GOSUB 
1810 

1160 I FA = 9THENPR I NT § 230 , CHR$ (195.) ; : GOSUB 1 8 1 0 : PR I NT § 1 90 , CHR$ ( 1 95 ) ; : GOSUB 
1810 v 1 . . 

1 170 I FA= 1 0THENPR I NT § 1 50 , CHR$ ( 1 95 ) ; : GOSUB 1810 : PRINTS 1 1 0 , CHR$( 1 95 ) ; : GOSU 
B1810 

1180 IFA>10THENPRINT§ 157, ” 1 ” : PR I NT § 237 , ” 1 ” : PR I NT § 3 1 7 , ” 1 •” : PR I NTS 397 , "1”: 
PRINTS 477, ” 1 ” : PR INT §557, ”1 ” : PR I NT §637 , ” 1 ’’ : PRINTS? 17 , ”1 PR INT §797, "1 ” : P 
RI NT §877, ”1 ” : PRINTS??, ”2” ' '- 

1190 I FA=1 1 THENPR I NTS 9 1 0 , CHR$ (233 ) ; : GOSUB 1820 : PR INT §870 ,CHR$(233) ; ; GOSU 
B l 820 : PR I NT § 830 , CHR$( 233 ) GOSUB 1 820 • 

1200 IFA=12THENPR I NTS 790 , CHR$ C 233 ) ; : GOSUB 1820 : PRI NT §750 , CHR$(233) ; : GOSU 
Bl 820 . . 

1210 I FA= 1 3THENPRI NTS 7 1 0 , GHR$ < 233 ) ; : GOSUB1820 : PRINTS670 , CHR$(233) ; :GOSU 
Bl 820 

1 220 I F A= 1 4THENPR I NT § 630 , CHR$ ( 233 ) ; : GOSUB 1 820 : PR I NT § 590 , CHR$ C 233 ) ; : GOSU 

b 1820 . 

1230 I FA = 1 5THENPR I NT S 550 , CHR$ ( 233 ) ; : GOSUB 1 820 : PR I NT 55 1 0 , CHR$C233 ) ; : GOSU 
•Bl 820 ■ ' : /vr;'.7 

1240 I FA= 1 6THENPR I NTS 470 , CHR£(233 ) ; : GOSUB 1 820 : PR I NTS 430 , CHR$ ( 233 ); : GOSU 
Bl 820 7 

1 250 I FA- 1 7THENPR I NT § 390 , CHR$ (233) ; : GOSUB 1 820 : PR I NT S 350 , CHR$ ( 233 ) ; : GOSU 
Bl 820 ' ' '• 

1260 I FA= 1 8THENPR I NT §310, CHR$(233 ) ; : GOSUB 1 820 : PR I NT S 270 , CHR$ ( 233 ) ; : GOSU 
B 1820 ' 

1 270 I FA= 1 9THENPR I NT § 230 , CHR$ (233 ) ; : GOSUB 1 820 : PR I NT S 1 90 , CHR$ (233 ) ; : GOSU 
B 1820 - ■■ 

1280 I FA=20 THENPR I NT § 1 50 , CHR$ (233 5 ; : GOSUB1 820 : PR I NT § 1 1 0 , CHR$ ( 233 ) ; : GOSU 
Bl 820 ■ .. ' 

: 1290 IFA=20THEN1310 
1300 GOTO 1350 

1310 PLAY (2,3, 1 ,15) : FOR I = 1 TÖ900 : NEXTI : PLAY (2,3, 1,0) : PR I NT S 779 , G : PR I NT §8 
40 , "Fuer eine neue” : PRINTS880 , "Runde bitte d le PR I NT § 920 , "Leertaste dr 
uecken"; • 

1320 U$=INKEY$: IFU$=” ”THENi0ELSE1320 

1330 IF ” J ”THEN 1 0 

1340 IF U$ = ”N ”THEN 1800 

1350 GOTO420 

1360 Y=RND( 10) 

. 1370 IF E= 1 THENN=N+ 1 

1380 IF E=2THENN=N+2 /Cp/- , 

1390 IFN=60THENN=0 : H=N+ 1 . k 

1400 I FM< 10THENPRINTS378 , n V. " 

1410 I FN< 1 0THENPR I NT § 38 1 ,N 
1420 I FY= 1 THENO$=CHR$( 242 ) 

1430 IF II >9THENPR I NT § 377 , N 
1440 IF N »9THENPR I NTS 380 ,N 
1450 PRI NTS380 , ” : ” 

1460 IF 11=10 THEN 1310 
1470 IFY=2THEN0$=CHR$C 198) 

1480 IFY=3THENO$=CHR*(200) 

1490 IFY=4THENO$=CHR$(201 ) 
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,1500 I. F Y »5 TH E N 0 $ «. C H R *. C 2 35 )' 

1510 .IFY=6THEN0$=CHR*C 192) 

1520 IFY=7THEN0$=CHR*C241 ) 

1530 I FY=STHENÖ$=CHf*V< 230 ) 

1540 IFY = 9T.HENO$=CHR$C202) 

1550 I FY- 1 0THENÜ*-CHR* C 243 ) 

.1560. Z-RNDC10) 

1570 IFZ- 1 THENP$=CHR$ C 242' v 
1580 IFZ=2THENP$=CHR$C 198) 

1590 IFZ=3THENP$=CHR$(200) 

1600 I FZ=4THEHP$=CHR$ ( 20 1 ). 

1610 I FZ=STHENP*=CHR*C 235 ) 

1620 I FZ=6THENP$=CHR$ C 1 92 ) 

1630 IFZ=7THENP*=CHR$C241 ) 

1640 IFZ=8THENP$=CHR*C230> 

1650 I FZ=9THENP$ = CHR$ C 202 ) 

1660 IFZ=10THENP$=CHR*(243 
1670 X=RND(10) 

1680 1 FX- 1 THENU$=CHR$C 242) 

1690 I FX=2THENU$=CHR$ C 198) 

1700 1FX=3THENU$=CHR*C200 ) 

1710 I FX-4THENU$- CHR$ C20 1 ) 

1720 IFX-5THERU$=CHR#C235 ) 

1730 I FX=6THENU$.=CHR$ t 1.92) 

1740 IFX=7THENU*=CHR$C241 ) 

1750 IFX=8THENU$=CHR$C230) 

1760 IFX=9THENU$=CHR*C202) 

1770 I FX = 10THENU$=CHR$(. 243). 

3780 I FX-ZTHENG-G+ 1 
1790 RETURN 
1800 END 

1810 FOR 1 = 1 T04 : PR I NTCHR$( 195) ; : NEXTI : RETUR 
1820 FOR 1= 1 T04: PR I NTCHRS ( 233 ) : : NEXTI : RETURN 
1830 D$= ” 1 ” : PRI NTD$ : DD$=D$: PR I N.T : PR I NT : PRINTDD* 

1840 F0RR-1T07: PLAY(2, 3,R, 10) : GOSUB 1870 : PLAY C 1, 5 , R , 1 5 ) : GOSUB 1 870 : PLAY (3 
. , 1 , R , 5 ) I.GOSUB 1 870 : NEXT : FORT= 1 TO20 : GOSUB 1 870 : NEXT 

1850 F0RR=7T0 1 STEP- 1 : PLA Y ( 2 , 3 , R , 1 0 > : GOSUB 1 870 : PLAY 0,5,8, 15) : GOSUB 1 870 : 

PLAY C 3 , 1 , R , 5) : GOSUB 1 870 : NEXT : FORT= 1 TO30 : GOSUB 1870 : NEXT 

1 860 F0RR=1T03 : PLAY CR ,1 , 0 ,0 ): NEXT : GOTO 1 880 

1.870 FORI = 1TO20 : NEXT : RETURN 

1880 RETURN : 

1890 cls ' : ' 

1900 PRINT” Pr ogr ammbeschrei bung - 

1910 PRINT"Dieses Programm soll die Konzentrat i oris-faeh i gkei t erhalten 
und. yieleicht sogar verbessern. " ' 

1920 PRINT”Es sollte an jedem Tag mit ihm ge- arbeitet werden, wob 

ei die Geschuindig- keitsstufe 2 genuegt. GescRu i nd i gkei ts- stufe 1 ist 
. erheblich schwieriger, und .; erfordert eine hohe Reakt i onsfaeh i gke i t , ” 
1930 PR I NT ”Zum Programmab 1 auf : ” : PR I NT ”S i e muessen sich auf das linke Fe 
ld konzentrieren, den es geht um die auesseren Zeichen zwisch 

en den Pfeilen. Sind diese Zeichen gleich, so druecken Sie sofort die 
Leertaste und halten sie einen Augenblick fest. 

1940 PRINTl’Uaren die Zeichengleich, dann steigt der Punktestarid in der 
rechten Saeule um eins.” 

1950 PRINT; PRINT: PRINT”Zum Fortfahren Leertaste druecken.” 

1960 UO$=INKEY$: IFUO$< >” "THEN1960 ELSE 1970 

1970 CLS: PRINT” Programmbeschre i bung : 

: ■—•-u'— — -.C-!— — -i—f 1— ■ — — — ' — 

1980 PRINT”Nun zu den Feldern in der Mitte: Das obere Feld zeigt 
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er das Unterbrechungssignal nicht sieht. 
Dies wird durch den" Befehl DI (Disable 
Interrupt) ermöglicht. EI (Enable Interrupt) 
schaltet die Interrupts wieder ein. Ein Pro- 
grammstück, das zwischen diesen beiden Be- 
fehlen liegt, kann also durch ein INT Signal 
nicht mehr unterbrochen werden. Zu beiden 
Arten der Unterbrechung ist noch zu sagen, 
daß im Interruptprogramm zuerst alle Re- 
gister auf den Stack gerettet werden müs- 
sen, wenn man später im alten Programm 
wieder richtig aufsetzen will. 

Um auf den wichtigsten Punkt in dem 
ganzen Mechanismus noch einmal hinzuwei- 
sen: Der Programmfluß wird nicht wie 

üblich durch Sprung- oder Unterprogramm- 
befehle beeinflußt, sondern durch ein Signal, 
das von aussen kommt. 

Stellen Sie sich nun vor, daß durch einen 
externen Impulsgeber der INT-Eingang des Z 
80 in regelmässigen Abständen, z. B. alle 25 
Millisekunden, auf Masse gezogen wird. Der 
Effekt ist, daß das laufende Programm alle 
25 ms einmal unterbrochen wird, daß Inter- 
ruptprogrämm an der Stelle 38 H abgearbeitet 
wird, und dann das alte Programm weiter 
ausgeführt wird. An dieser Stelle wird Ihnen 
warscheinlich gleich der größte Nachteil 
dieser Methode auff allen: Wenn das Inter- 
ruptprogramm zuviel Zeit verbrät, merkt 
der Benutzer, daß der Computer nicht mehr 
ausschließlich an seinem Programm arbeitet, 
sondern noch irgendetwas anderes tut. 

NEWDOS 80 macht nun genau von dem 
oben geschilderten Verfahren Gebrauch. Alle 
25 ms wird das laufende Programm stillge- 
legt; und die Interruptroutine ab 38 H abge- 
arbeitet. NEWDOS 80 benutzt dies z. B. um 
die interne Uhr (für den TIME- und CLOCK- 
Befehl) weiterzustellen, oder um die Tasten- 
kombinationen 3KL, .123 oder DFG 
abzufragen. Soweit wäre das für den Be- 
nutzer eigentlich nicht sonderlich interes- 
sant, wenn sich die Programmierer von 
NEWDOS nicht etwas besonderes hätten ein- 
fallen lassen. Das Programm ab 38H ist in 
einer Art Kette organisiert, in die der 
Anwender wenn er will, und sich an gewisse 
Spielregeln hält,' eigene Programme einhän- 
gen kann, die dann, wie die Systemprogram- 
me, bei einem Interrupt abgearbeitet wer- 
den. Er muß sich dabei nicht um das Retten 
der Register oder sonstige Verwaltungsarbei- 
ten kümmern, sondern bekommt diese 
Dinge vom Betriebssystem abgenommen. Die 
wichtigste der Spielregeln ist: Wenn ein 
Programm in der Kette hängt, darf es auf 
keinen Fall verändert werden, ansonsten 


hilft nur noch der oben erwähnte Reset- 
Knopf, oder man muß vor der Änderung, wie 
oben erwähnt, mit DI die Interrupts verbie- 
ten. Das Programm muß, wie ein normales 
Unterprogramm mit RET abgeschlossen werr 
den. Die ersten vier Bytes des Programmes 
sind für NEWDOS reserviert und werden für 
Verwaltungsaufgaben benötigt. Von diesen 
Vier ist nur das Dritte wichtig, in ihm 
stehen die Anzahl der 25 ms Intervalle, die 
verstreichen müssen, bis das Programm tat- 
sächlich ausgeführt wird. Steht in diesem 
Byte, z. B. wie in meinem Programm, eine 
acht, wird es alle 8 * 25 = 200 ms einmal 
ausgeführt. Die drei anderen Bytes dienen 
als Link zum einhängen in die Kette, oder 
als . Zähler und dürfen beim einhän- 

gen einen beliebigen Wert haben. Das Ein- 
und Aushängen besorgt dann NEWDOS 80. 
Im Registerpaar DE muß dazu die Anfangs- 
adresse des Programms stehen, das einge- 
hängt bzw. ausgehängt werden soll. CALL 
4410H hängt das Programm dann in die Ket- 
te ein und CALL 4413H- hängt es wieder 
aus. Eine genaue Beschreibung finden Sie 
auf Seite 55 des deutschen NEWDOS Hand- 
buchs. 

So, ich denke jetzt wird es Zeit, näher 
auf mein Beispielprogramm einzugehen. 
Viele werden sich fragen, was es denn über- 
haupt tut. Ich will Sie deshalb nicht länger 
auf die Folter spannen. Das Programm ist in 
erster Linie ein praktisches Beispiel für das 
oben gesagte, und soll Sie zu eigenen 
Experimenten anregen. Außerdem ist es eine 
interessante Utility, die mir schon oft nütz- 
liche Dienste geleistet hat. Soweit ich infor- 
miert bin, gibt es bis jetzt nichts ähnliches 
-für das Video Genie. 

Das Programm wird mit TAUSCH oder 
TAUSCH, J gestartet, und hängt sich dann in 
die oben geschilderte Interrupt-Kette ein. Es 
liegt ganz oben im RAM und schützt sich 
selbst gegen überschreiben. Ausgeschaltet 
wird es mit TAUSCH, N. Das Programm wird 
aus der Kette ausgehängt, und gleichzeitig 
der geschützte Platz wieder frei gegeben. " 
Was tut; nun das Programm? In einem Satz 
gesagt: Es ermöglicht das Arbeiten unter 
NEWDOS auf zwei Bildschirmseiten gleich- 
zeitig. Ein Beispiel: 

Sie wollen eine Datei von einer Diskette 
auf die andere kopieren, und haben den 
Copy-Befehl schon eingegeben. Plötzlich 
wissen Sie nicht mehr, ob nicht vielleicht 
schon eine Datei gleichen Namens auf der 
Zieldiskette existiert, die dadurch eventuell 
gelöscht würde. Normalerweise würden Sie 


jetzt den Copy-Bef ehJ mit Shift und Back- und schalten dann auf den zweiten Bild- 
space wieder löschen, den Befehl DIR 1 schirm um, und . starten Sie ganz normal das 

eingeben, sich das Directory anschauen, und gewünschte Programm. Sie können nun je- 

dann den Copy-Befehl erneut eingeben. Falls derzeit innerhalb des Programms das Direc- 

Tausch aktiv ist, was Sie im übrigen an dem tory anschauen und wieder wegspeichern. 

T in der rechten, oberen Bildschirmecke er- ACHTUNG! Jetzt können Sie natürlich keine 

kennen können, geht das ganze viel ein- DÖS-Befehle mehr eingeben. Sie sind ja in- 

facher. Anstatt den Copy-Befehl zu löschen, nerhalb eines Anwenderprogramms! - 
drücken Sie die Shift- und Breaktaste ■ , 

gleichzeitig. Einen Moment später ist der n „. h S °S? 0 a 8 e J ^ V 

bisherige BUdschirminhalt verschwunden, und TO< L h fo !« e " de , “°S 1,chke,t an: Geben S.e - 

ein leerer Bildschirm taucht auf. Lassen Sie z- B. mit dem Debugger - einen Speicherbe- 

nun die Tasten, wieder los, da sonst gleich r “ ch auf de n Büdsch.rm aus, speichern Sie 

. , Li' 1 . • . r-, - i c- ihn mit Shift-Break weg, und geben Sie dann 

wieder umgeschai et w.rd. Drucken Sie nun ^ zweite n Bcre „ *’ , te „ g sic . 

einmal die NEWLINE-Taste, das müssen Sie •• , .... 

nur beim ersten Austausch /nach Starten des üt s.Tf 8 ^ n" W 
r, . .. . . , ... . . die Shift- und Breaktaste gedruckt nanen, 

Programmes tun, und sofort meldet sich , . . , . . , D . , . , .. _ 

NEWDOS und wartet auf neue Befehle. wechseln sich beide Bilder m schneller Folge 

c . „.r, , ...... , ... . ■ ab, und alle Unterschiede zwischen beiden 

Jetzt können Sie DIR oder jeden beliebigen n . , . . , . _ 

ori j u. ■ lir , • k Bereichen, lassen sich mit einem Blick daran 

anderen Befehl eingeben, und sich so die , , „ . , , 

infn'fmUiAnMt' Kcsizars wak« erkennen, daß sie ,auf dem Bildschirm 

benötigten Informationen holen. Wenn Sie b]inken , m fal|en ichl , r noch dere 

nun wieder Shift und Break betätigen, .... ...... . c . . n 

taucht der alte Bildschirm, der mit dem “°S -chkeiten ein, wie Sie das Programm 

n . , , . . . , , „ für Ihre speziellen Probleme einsetzen 

COPY-Befehl, wieder auf, und der Cursor ... 

blinkt an der alten Stelle. Sie können nun onnen. 

den COPY-Befehl einfach mit NEWLINE ab- Ich will an dieser Stelle nun nicht weiter 

schicken, oder den Befehl mit Backspace auf das Programm eingehen. Mit dem vorher 

: verbessern. Das ganze funktioniert mit je- Gesagten und - den ausführlichen 

dem NEWDOS 80 Befehl. Sie können ganz Kommentaren dürfte es kein Problem für 

nach Belieben zwischen beiden Bildschirmen Sie sein, alles zu verstehen. Nur noch ein 

hin- und. herschalten und Befehle geben. Punkt! Das Programm ist nur ein Beispiel 

. , für die vielfältigen Möglichkeiten,- die die 

Eine zweite Möglichkeit, die das Pro- interruptkette bietet. Probieren Sie doch 

gramm bietet, ist folgende: einmal z. B. eine Interruptabgefragte Tasta- 

Sie können irgendwelche Bildschirmaus- tur zu rea i isieren , oder einen Drucker- 

drucke in ein Programm transportieren, oder Spooler, oder 
aus einem Programm herausbringen. Nehmen ’ "" 

Sie z. B. an* Sie benötigen in einem Pro- Möglichkeiten gibt es noch viele! 

gramm dauernd das Directory von Laufwerk 
1. Ganz einfach ! Führen Sie den DIR 1 aus, 

.*********************************************** *.* ********** 
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;* LAEUFT UNTER NEWDOS 80 V2.0 UND GDOS. * 

;* DURCH GLEICHZEITIGES DRUECKEN VON SHIFT UND BREAK WIRD * 
;* DER AKTUELLE .BILDSCHIRMINHALT, DOS EINGABEPUFFER UND * 
;* DIE CURSORPOSITION GERETTET. DA DIE ROUTINE IN DIE * 

;* INTERRUPTKETTE DES DOS EINGEHAENGT WIRD ARBEITET SIE MIT* 
; * JEDEM ANWENDERPROGRAMM ZUSAMMEN, DASS DIE INTERRUPTS * 
;* NICHT ABSCHALTET. * 

;* EINSCHALTEN MIT : TAUSCH ODER TAUSCH, J * 

;* ABSCHALTEN MIT : TAUSCH, N * 

.*********************************************************** 

ASEG 

ORG OFAFOH ; LIEGT GANZ OBEN IM RAM 
; BETRIEBSSYSTEMSADRESSEN 
.******#**************** 
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BUFFZ 

EQU 

41DAH 

; ZEIGT AUF LETZTES ZEICHEN IM DOS 
EINGABEPUFFER 

BUFFZ2; 

EQU 

41D2H 

; ZEIGT AUF NAECHSTES FREIES' BYTE IM 
; PUFFER UND ZAEHLT EINGEGEB. ZEICHEN 

BUFF 

EQU 

4318H 

; DOS-EINGAEEPUFFER 

CURS 

EQU 

4020H 

; CURSORPOSITION 

HIMEM 

EQU 

4049H 

; HOECHSTE BENUTZBARE RAM-ZELLE 

AUSHNG 

FQU 

/: 4413H 

; ROUTINE AUS INTERRUPTKETTE AUS- 
; HAENGEN * 

EINHNG 

EQU 

4410H 

; ROUTINE IN INTERRUPTKETTE EIN- ' 
; HAENGEN 

ECKERO 

EQU 

3C3FH 

; RECHTE OBERE BILDSCHIRMECKE 


. ********* *.* ****************************************** 

;* HAUPTPROGRAMM BESORGT EINHAENGEN UND AUSHAENGEN * 
.***************************************************** 


HAUPT : 

LD 

DE, SWAP 

; ZEIGER AUF INTERRUPT- 
’ ; ROUTINE 


LD 

HL, (BUFFZ) 

; LETZTES ZEICHEN IM 
; PUFFER 


LD 

a,(hl) 

; UMWANDELN IN 


ÄND 

. ODFH J. 

; GROSSBUCHSTABEN 


CP 

•N’ 



JR 

NZ , INIT 

;NEIN INITIALISIEREN 


LD 

HL.OFFFFH 

RESERVIERTEN SPEICHER 


LP 

(HIMEM), HL 

• ; FREIGEBEN . 

: \ : i 

CALL 

AUSHNG 

; AUSHAENGEN 


JR 

OK 


INIT: . 

LD 

HL, HILF-1 

; ROUTINE VOR ZUGRIFFEN 


LD 

(HIMEM) , HL 

; SCHUETZEN 


PUSH 

DE 



LD 

LD 

LD 

LD 

LDIR 

POP 

HL.DISBUF 
DE , DISBUF+1 
BC ,1023 
. (HL), • V 

DE 

; PUFFER MIT LEERZEICHEN 
; FUELLEN 


CALL 

EINHNG 

; ROUTINE EINHAENGEN . 

OK: 

RET 




. ******** * * ******************** * * ******************** 
5* ENDE DES HAUPTPROGRAMMS * 

v* **************************************** *********** 

■ **************************************************** 

; VOM PROGRAMM BENOETIGTE VARIABLEN UND PUFFERSPEICHER 
• * # **************** *:* **************************** * * * * 


i 


HILF: 

DEFB 

0 

; HILFSZELLE 

FUER AUSTAUSCH 

SBUFFZ : 

DEFW 

BUFF 

; ZUM 

RETTEN 

VON 

BUFFZ 

SBUF2 : 

. DEFW 

BUFF 

; ZUM 

RETTEN 

VON 

BUFFZ 2 


DEFW i 

0 





SCURS : 

DEFW 

0 

; ZUM 

RETTEN 

VON 

CURSOR 

SBUFF: 

DEFS 

80 

•ZUM 

RETTEN 

VON 

DOS-PUFFER 

DISBUF : 

DEFS 

1024 

; ZUM 

RETTEN 

B I LD S CHI RMI NH ALT 


; ****** * *.** * * * * * * * * ***** * * ****** * *.** * * **** *•'* * * * **** * **** 
;* UP ZUM AUSTAUSCH ZWEIER BELIEBIG LANGER SPEICHERBER.* 
; * PARAMETER : HL -ZEIGER AUF 1. BEREICH * 

;* DE - ZEIGER AUF 2. BEREICH * 

J* BC - LAENGE DES SPEICHERBEREICHS * 

; * * *** **•* ******* * ******** * ********** * ********** **** ***** 
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A, (HL). 
(HILF) ,A 
A, (DE) 
(HL) , A 
A, (HILF) 
(DE) ,A 
HL 
DE 
BC ' 

A, B 


TAUSCH 


BYTE AUS 1. BEREICH NACH A 
IN HILF SPEICHERN 
BYTE AUS 2 . BER. NACH A 
IN 1. BER . ABLEGEN ' 

HILF ZURUECKHOLEN 
UND IN 2. BER. ABLEGEN 
NAECHSTES BYTE 


ZAEHLER VERMINDERN 
BIS ZAEHLER = 0 


JR NZ, TAUSCH , ; GROESSER NULL DANN NOCH' 

■ ' ; MAL 

RET ; FERTIG DANN ZURUECK ■ 

******** * * * * ****** * * ******** *********** ************* 

EIGENTLICHE INTERRUPTROUTINE; 
******************************************** ** ****** 

WAP: DE FW 0 ; ZEIGER AUF NACHFOLGER i: 

DEFB 8 ; ZAEHLERVORGABE. ROUTINE 


DEFB 


LD HL, ECKERO 

LD (HL), 'T' 

: LD A, ( 3880H ) 

BIT 0, A , - 

JR : Z.DÖNE 
LD A, (3840H) 

BIT ^ 2 , A 
JR Z.DONE ' 

; HIER BEGINNT AUSTAUSCH • 
LD HL.CURS 

LD DE , SCURS < 

- LD EC, 2 ^ 

CALL TAUSCH 

LD HL, BUFF 

LD DE, SBUFF 

. LD , BC , 80 

CALL TÄUSCH 

; . . LD HL , BUFFZ 

■ LD DE , SBUFFZ 

LD BC , 2 

CALL TAUSCH 

LD HL, BUFFZ2 

LD DE, SBUF2 

■ LD • BC, 4 

CALL TAUSCH 

LD . HL , 3C00H 
LD DE, DISBUF 

LD BC , 1024 

CALL TAUSCH 

DONE: RET 

END HAUPT 


CURSORPOSITION 

RETTEN 


DOS-EINGABEPUFFER 
RETTEN : 


ZEIGER AUF EINGABEPUFFER 
RETTEN • 


ZEIGER AUF NAECHSTES FREIES 
BYTE UND ZAEHLER RETTEN ; v 


BILDSCHIRMINHALT 
RETTEN v: \ ' 


ENDE INTERRUPTROUTINE 



I . 
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PLOT 1 
im TEST 


Mit Testberichten in der GENIE 
DATA haben wir es ja immer ein 
bißchen schwer. Zum einen wollen 
wir natürlich nur Geräte vor- 
stellen, die Sie mit Ihrem Compu- 
ter auch verwenden können, zum 
anderen gibt es natürlich viele 
Dinge, die mit einem Genie oder 
Colour Genie noch nicht machbar 
sind. Mit dem TCS Plot 1 haben 
wir aber eine Peripherie gefunden, 
die sowohl interessant genug zum 
testen ist, und auch an allen Ge- 
nies läuft. Also, gehen wir ran ... 

Der Plot 1 ist ein Plotter. Er hat 
also mit einem Matrixdrucker 


nicht sehr viel gemeinsam. Wenn 
Sie noch keine Plotter kennen, der 
Unterschied liegt in folgenden : 

Bei einem Matrixdrucker wird 
die Schrift, oder die Grafik, er- 
zeugt, indem der Drucker aus ein- 
zelnen Punkten ein Bild zusam- 
mensetzt. Das kann ein Buchstabe, 
eine Zahl, ein Sonderzeichen oder 
auch eine Grafik sein. 

Ein Plotter hingegen verfügt 
über einen oder mehrere Stifte, 
mit denen er ein Bild, ein Buch- 
stabe, eine Zahl, etc., zeichnet. 


Nachdem wir uns darüber klar 
sind, wollen wir uns den Plot 1 
einmal etwas genauer anschauen. 

Zuerst einmal, und das dürfte 
das interessanteste sein, zum Preis: 
Während man bisher für einen 
brauchbaren Plotter, ca. 5.000,-- 
DM hinblättern mußte, was für 
reine Hobbyanwendung ziemlich 
viel ist, bekommt man den Plot 1 
schon für ca. 1 .100,-- DM. Da wird 
dje Sache ja schon interessant. Was 
man dafür alles bekommt, ist 
schon recht brauchbar. Was im 


Papierführung 
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einzelnen, sehen wir uns jetzt an. 

Der Plot 1 hat vorne, links vier 
Knöpfe, mit denen man verschie- 
dene Funktionen auslösen kann. 
Zuerst einmal die Reset-Taste. Es 
kann dem Anfänger leicht passie- 
ren, das er die Betriebsparameter 
so verstellt, das er nicht mehr 
arbeiten kann. Hier hilft die Re- 
set-Taste aus der Patsche. Sie ver- 
setzt den Plotter wieder in einen 
„annehmbaren" Zustand. 

Die Farbwahl-Taste gestattet es 
Ihnen unter vier verschiedenen 
Farben auszuwählen, Schwarz, 
Rot, Grün und Blau. 

Mit den beiden anderen Tasten 
können Sie das Papier nach vorne 
oder hinten schieben. Das Papier 
kann beim Plot 1 von der Rolle 
kommen, aber auch einzelne DIN 
A 4 Blätter lassen sich problemlos 
verwenden. Der Plotter hält das 
Papier mit zwei kleinen Stachel- 
rädern fest, und zwar so, das auch 
bei öfterem hin- und herschieben 
noch eine ausreichende Genauig- 
keit erzielt wird. 

Anschlüssen können Sie den 
Plot 1 wahlweise über ein serielle 
oder eine paralelle Schnittstelle. 
Ein passendes Kabel müssen Sie, 
sofern Sie nicht schon von einem 
anderen Drucker eines haben, zu- 
sätzlich erwerben. Die Paralell- 
Schnittstelle ist hierbei Cen- 
tronics kompatibel, die seriel- 
le Schnittstelle braucht nur TxD, 
RxD und GND, sie überträgt mit 
1200 Baud. 


Die Belegung der beiden Schnitt- 
stellen sind im beiliegenden, deut- 
schen Handbuch auf drei Seiten 
ausführlich erklärt, so daß hier kei ; 
ne Probleme auftreten dürften. 

Da wir schon dabei sind.: 

Das deutsche Handbuch ist eigent- 
lich recht gut gelungen, was man 
ja nicht immer; sagen kann. Es ver- 
mittelt an Hand von Abbildungen, 
Programmen und erklärendem 
Text sehr gut, wie mit dem Plot 
1 umzugehen ist. Auch die Anpas- 
sung an die verschiedensten ande- 
ren Rechner ist erklärt. 

Was kann denn der Plot 1 nun 
eigentlich? 

Zuerst einmal kann man ihn wie 
jeden änderen Drucker dazu ver- 
wenden, um Text auszugeben . A I - 
lerdings muß man hier fairerweise 
dazu sagen, daß das eine Sache ist, 
die auch d ie stärksten Nerven ganz 
schön belasten, kann. Wie Sie sich 
sicher vorstellen können, ist es 
sehr zeitaufwendig, jeden einzel- 
nen Buchstaben zu zeichnen. Er 
schafft hier aber immer noch 12 
Zeichen pro Sekunde. Aber wollen 
wir uns im klaren darüber sein, 
daß ein Plotter nicht gedacht ist, 
um ellenlange Listings auszudruk- 
ken I Dafür gibt es Matrixdrucker I 
Diese erledigen das wesentlich 
schneller und eleganter. Die Stärke 
eines Plotters ist die Grafik ! Und 
hier hat der TCS Plot 1 einiges zu 
bieten I 

Er schafft beim ziehen von Li- 
nien immerhin in x- und y-Rich- 


tung 57 mm pro Sekunde,, dia- 
gonal sogar 81mm pro Sekunde! 
Der Schrittmotor bringt 285 
Schritte pro Sekunde und liefert 
eine Auflösung von 0,2 Milli- 
meter. Die Zeichengenauigkeit 
liegt bei einer beachtlichen Wie- 
derholgenauigkeit von 0,2 mm 
maximale Abweichung und bei 
0,5% max. Abweichung bei der 
Positionierung auf der x-Achse, 

Hiermit arbeitet der Plot 1 
schon fast professionell I 

Die Stifte, die zum zeichnen 
benutzt werden, sind kleine Ku- 
gelschreibermienen in den Farben 
Schwarz, Rot, Grün und Blau. Sie 
haben genug Tinte für 250 Meter 
Striche, danach müssen sie ausge- 
wechselt werden. Sie sitzen in 
einer Revolvermechanik, die es 
gestattet, die Farben softwaremäs- 
sig anzuwählen. 

Der Plot 1 versteht eine Reihe 
von Befehlen, die sie Ihm einfach 
per LP R INT übergeben- Ein eige- 
ner 8085 Prozessor sorgt dafür, 
das der Plot 1 Ihnen einiges an In- 
telligenz bietet. So berechnet er 
zum Beispiel die Steigungen von 
Geraden automatisch oder kann 
ganze Koordinatensysteme auf 
einen einzigen Befehl hin Zeich- 
nen. Linien können ganz oder auf 
15 verschiedene Arten punktiert 
ausgegeben werden. Der Plot 1 
bietet Ihnen zwei verschiedene 
Schriften in 64 verschiedenen 
Größen. Außerdem kann Schrifft 
in vier verschiedene Richtungen 
geplottet werden! 

Alle Koordinatenangaben sind 
sowohl absolut, Wie auch rela- 
tiv zu erteilen. 

Einen kleinen Eindruck über die 
Leistungsfähigkeit des Plot 1 er- 
halten Sie, wenn Sie sich einmal 
die Probeausdrucke anschauen ! 

Fazit . Der Plot 1 ist, vor allem 
im Verhältnis zum Preis, ein Ge 1 
rät, daß Sie in Erwägung ziehen 
sollten, wenn Sie sich viel mit där 
Ausgabe von Grafik befassen. 
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versenken 


10 CLS 

20 REM. GEAENDEIRT AN 9.1.84 
30 CLEAR200 

40 DIM. R<3, 6) ,P2 (6) , S (955) , 2.1 < 8) , S* (8, 6); , F(B, 6> , S 1 * < 8, 6 ) , W ( 8) 
50 CÜLQUR9 : PR I NTH480 , !' ©3 @ö @0 ®g @3 @2 @3 @0 @3 @3 @0 @© m @0 @3 @@ @3 
60 . COLOUR8 : PR I NT&366 ,. " Z@ @3 @0 @3 ©3 @3 @3 @@ @0 @@ @0 @3 © " 

70 ' PRINT@40.7-, " Z@@äe@@©@ä@e@ä@Ö(I@@i3©a@3@iä " '0 

90 C0L0UR 1 4 : PR I NT8336 , " @e@ia@iail@@" : PR1NT@299, : PR1NTÖ259, "I 

I NT0221 , " ja " : PR I Nie 1 82 , "fl " 

100 C0L0UR5: PRINTI2332, "(HSV 1 : PRINT@296, "0@V" : PRINT@346, "C&ST 
1 1 0 CÜL0UR7 : PRINt@329 , "dGO" : PR INT'i3293 , "OOÜ" : PRINH3349, :i, POO" 

120 C0L0UR.3 : PRINT@.142, "E" : PRINT® 102, "E 11 
130 CDL0ÜR2 

140; PRINTCülO, "Schi f f .chen.Vj rsenken " f qQV.0 

1.50 CQLOUR 5 : FR I N T®5 0 , " 00 00 00 00 OO 00 OO 00 00 0 " V 

16»0 COL.OUR4: F‘RINTii563, "Mi t den F-f ei 1 tasten 2 i ei t ! man,'"/' 

170 PRINT©640, "und mit der Leertaste wird qeschossen. " 

180 PRINTI3810, "Oorf uehren — V" ." 07 

190 PRINTÖ890 , "Spielen = S" ^ 

200 F'RINT@410, "von U.Groke 516 Dueren" 0 r\f r 

210 G=RND (3) £ ^ viW . 

220 ON G GOSUB280 , 3 10, 340 , „ v - sV C " • v Y6 

230' FÜR I = 1T0RND < 1000) : NEXTI / ' ,VoPe ■ V-V 


RETURN 


RETURN 
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1 380 
390 


•410 
420 
P ( I 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
2: S 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
SSO 
890 
900 
910 
920 
930 
940 
950 


»B:S*(I, J)=CHR*(A> sSl*<I, J>=CHR*(C> : PRINTS 


CLS: GOSUB 2120: FÜR I = 1 T08 : READA : Z 1 < I > “A : NEXT I 
C0L0UR4 
F0RI=1TÜ8 
FORJ=1TOZ 1(1) 

READA: READB: READC: P ( I , J ) 

, J> ,S$(I, J> . 

NEXT J ,1 \ 

C0LQÜR7 : FORI =40X080 STER40 

PRINT'II f . "tSa@@QSQI®SÖ®O2090QQ0Q338®30®0i3®3@@@S0G!@@8" ; 

NEXTI 

C0L0UR8: PRINT@120, "GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG6GGG6GG" 
FORI=1T08 , 

A=RND ( 34 ) : B=RND (19) +3 : C=RND ( 4 ) 

IF C=1 THEN, C=l: A2=1:GOT0540 

IF C=2 THEN C=40: A2=2: G0TO54O 

IF C=3 THEN C=-l : A2=l : G0T0540 

IF C=4 THEN C=— 40 : A2=2 : G0T0540 ; 

F'2<1)=A+B*40 
I F S < P2 ( 1 ) ) >0 THEN 490 
C1=C*Z1 (I) 

IF A2=l THFN IF A+Cl< O OR A+Gl >35 THEN 490 , 

IF A2=2 THEN IF P2< 1 ) +C1< 160 OR P2 < 1 ) +C I >9 1 8 THEN 490 
C2=0 

C2=C2+1 : IF S ( P2 ( 1 > +C2 * C ) >0 THEN490 
IF C2< Z 1 < I ) THEN 600 
FOR J=2T0Z 1(1) 

P2(J)=P2<1)+(J-1)*C 

NEXTJ 

FOR J = 1T0Z 1(1) 

S (P2 < J > -1 ) =2: S (P2 < J > -41 ) =2: S (F2 ( J) -40) =2: S (P2 ( J ) -39) =2: S (P2 < J > +1 > = 
( P2 ( J ) +39 ) =2 : S ( P2 ( J ) +4Ö ) =2 : S < P2 ( J ) +4 1 ) =2 
'■NEXTJ 

FOR J=1T0Z 1 ( I ) 

S <P2 ( J ) > =1 - 
R ( I , J) =P2 ( J ) 

NEXTJ 

NEXTI •■•'" ' 

C0L0UR5: PRINTS920, "Schusszahl : " ; 

X*=CHR*( 144) +CHR* (145) +CHR* (146) +CHR* (147) 

L=537 :X=17:Y=13:X1 =556 : REM ZIELANWAHL - 
IF 6=2 THEN 1310 
li=PEEK ( 17408+L) 

C0L0UR8 : PR I NTSL , CHR* ( 1 70 > 

A=PEEK (-1984) 

IFAAND64 THEN 
IFAAND32 THEN 
IFAAND16 THEN 
IFAAND8 - THEN 


IFX<34 
IFX >0 
IFY<22 
IFY>4 


THEN 

THEN 

THEN 

THEN 


X=X+1 

SÄÜ 

Y-Y+l 

Y*Y-1 



IF A=2 THEN GOSUB 1450 
Li=X+Y*40 : p 

X 1=36+Y#4ös PRINTQX1 , X$; 
iFM«171 THENC0L0UR7: G0T091 O 
IFM*169 THEN C0L0UR5: G0T0910 
C0L0UR4 

PRINT@L,CHR*(M> 

IFAAND128 THEN 950 
L=L 1 

GOTO 760 

C0L0UR4 : PR I NTSXl - 1 , CHR* < 162 > : GOSUB 1630 
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960 GÖL0UR6: F0RI=X. 1— 2 TO L STEP-1 
970 Ml =PEEK ( 17408+ I ) 

980 C0L0UR6: PRINTQI, CHR* (167) 

990 I FM 1 = 171 THEN CÜLÖLJR7 : GOTO 1 0 1 0 
1000 IFM 1-1.69 THEN C 
1.0 10. PR I NT@ I , CHR* ( M 1 
1020 L2= I /•: -T ' 

1030 NEXTI 
1 040 PRINT@X1-.1-, " " 

1050 GOSUB i 650 

1060 C0L0UR2 : T=T + 1 : PR I NTQ93 1 , T ; 

1070 C0LOUR3 : F0RI.f1 T04 ■ 

1080 GOSUB 1 620 : PR INT@L2,CHR*< 162+1) 

1090 NEXTI . Y. ;. ■ 

1 100 U=0 
1110 FORI =.1T08. 

1120 FÜRJ=1TÜ21 (I > 

1130' IFR(I, J)=L2. THEN U=1 : U1 = I : U2-J: 1=8 
1 140 NEXTJ, I 

1130 IF W (U1) =1 AND U=1 THEN PR1NTÖL2, CHR* ( 169) : G0TQ760 . :' ; T" 

1 160 IFU=0THENC0L0UR7: PRINTÖL2, CHR* ( 171 > : S (L2 ) =4 : GOT0760 
1120 GDL0UR5jPRlNTj@L2,CHR$< 169) 

1130 GÜSUB 1 630 : FOR I=--1T050: NEXTI: GOSUB 1640 
1 1.90; G0LQUR5 : PRINTER (Ul, U2) ,S1*(U1,U2) 

1,200 C0L0UR7 « print@4o, " " 

1210 C0L0UR5: PRINTSP (Ul , U2) +40, CHR$ (2 ~j2). . 

1 220 PR I NT@ 1 20 , " Tr ef -f er " 

1230 FÜRJ =1T0500: NEXTI 

1240 COLOUR£: PRINT@120, "GGGGGGGGG " 

.1250 S(R.(Ui,U2> )=3 ‘ ’ 

12itÖ' V=0:FORr-lT0ZrCUl> , -,Y ' ' . 

1 270 I F S ( R ( U 1 , I ) ) =3 ' THEN V~V+ 1 
1 280 NE X T l : I F V= Z 1 ( U 1 ) AND W < Lj 1 •> *0 THEN 1 490 • 

1 290 IF VI =8 THEN 1420 
1300 G0T0760'" 

1 3 1 0 CQL.0UR2: H=X 1 

1320 Hl=3£>( (RND(i.9j.+3)'*.40) v , 0. 

1330 L=(H1-RNDY35) )-l : , 

1340 IF S (L) >2 TUEN 1320 

1350 IF Hl >H THEN H2;=40 ELSE H2»-4'0' ; '• 

1360 IF H 1 =H THEN 950 .. • - 

1370 F0RX=HT0H1 STEP H2 

1380 PRINTSXI , " : X 1 =X : PR 1NTQX 1 , X*; / 

1390 F0RJ=1 TÜ10 : NEXTJ 
1400 NEXTX 

1410 GOTO 950' - • ' : ... 

1420 C0LÜUR2 : PR1 NTÖO, " Du hast; die Seeschlacht gewonnen" : PRINTQ94Q, "Neu 
auf stel 1 ung = N"; ' 

1430 B2$=INKEV$: IFB2*=" "THEN1430 
1440 IF E-i2$- "N " THEN RUN 1 OELSE 1430 
1450 CQL0UR2: F0RI=160T0918 
1460 I F B ( I ) = 1 THEN PRINTQI, "q" ; '• 

1470 NEXTI ■ - 

1480 RETURN 

1490 C0L0UR5 ’ , 

1500 PLAY (1,5,, 5, 15) . Y , ■ 

151 0 FÜR J = 1 TOZ 1 (Ul ) ' ' 

1520 PR I NT@P < I J 1 , J > . " " : PR I NT@P ( Ul , J ) +40 , S 1 $ ( LI 1 , J ) 

1530 NEXTJ 

1540 PLAY (1,4, 5, 15) 
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1550 F0RJ== 1 TOZ 1 (Ul V 

1560 C0L0UR7: PRINTER (Ul , J ) +40, : C0L0UR5: PRINTÖP- (Ul , J ) +80, S1 $ (Ui , J> 

1570 NEXTJ 

1580 PLAY <1, 3,5, 15) 

1590 w ( u i > = 1 1 o i = v i + 1 : . I, ; ' : 

1600 GOSUB 1620: PLAY <1,1,1, 0) 

161 0 GOTO 1290 

1620 FQR I 2=1 T020s NEXT 12: RETURN 

1630 S0UND6, 30: SOUND 7, 7: SOUND 8, 16: SOUND 9, 16: SOUND 10, 16: SOUND 12,16 
: SOUND 13,0: RETURN 

1640 SOUND 1,8: SOUND 3, 9: SOUND 5, 1 : SOUND 6,2:S0UND 7,7:S0UND 8,31:S0UND 
9, 31: SOUND 10,24;S0UND 12, 80: SOUND 13, 3: RETURN 
1650 SOUND 1 , 6: SOUND 3., 5: SOUND 5, 1 1 : SOUND 6, 2: SOUND 7, 7: SOUND 8,31:S0UN 
D 9,31: SOUND 10,24: SOUND 1 2 , 80 : SOUND! 3 ,3 : RETURN 
1660 DATA000,000, 007,000, 127,063,031,015 

1670 DATAOOO, 000,248, 056, 255, 255, 255,255 
1680 DATAO 16, 112, 127, 1 27 , 255, 255 , 255,255 
1 690 DATAOOO , 000 ,015,014,255. £55 . 255, 255 
1700. DATAOOO, 000, 240, 000, 252, 252,248,248 
1710 DATAOOO, 000,007,000, 113,015,007,015 
1.720.:' DATAOOO, OOO, 248, 032, 225, 227. 255,255 
1730 DATA016, 048, 031, 017, 131, ;131, 135,255 
1740 DATAOOO, 000,015, 002, 132, 136,209,255 . .; 

1750 DATAOOO, 000, 240, 000, 132,012, 152,248 
1760 DATAOOO. 000, 000, 000, 004, 096, 063, 031 
1 770 DATAOOO, OOO, 016, 145, 024, 024,255,255 . . \ 

1730 DATAOOO .000, 000,000 , 0 1 6 , OOO , 254 , 254 

1790 DATAOOO, OOO, OOO, OOO, OOO, 065, 033, 031 I 

1800 DATAOOO, OOO, 000, 012, 024, 016, 240, 255 

1810 DATAOOO, OOO, OOO, 000, 000*000,134, 254. 1 J 

1820 DATAOOO, OOO, OOO, 015, OOO, 127,063,031 

1830 DATAOOO, OOO, OOO, 252, 060, 255, 255, 255 

1840 DATAOOO, OOO, 024, 030, 063, 255, 255, 255 

1850 DATAOOO, OOO, OOO, OOO, OOO, 252, 252,248 

1860 DATAOOO, 000,000, 003, OOO, 065, 033, :031 

1870 DATAOOO, OOO, OOO, 248,016,241, 129,255 . ' 

1880 DATAOOO, OOO, 032, 032, 224, 129, 195, 255 
1 890 DATAOOO , OOO , OOO , OOO , OOO , O 1 2,0 1 2 , 248 
1900 DATAOOO, OOO, 003, OOO, 127,063,031,015 ,. 

1910 DATAOOO , 006 ,255,016, 255 , 255 , 255 , 255 
1920 DATAOOO, OOO. 248, 128,255, 255, 255, 255 
1930 DAT AO 1 2 , 03 1,014,01 4 , 255 j, 255 , 255 , 255 
1940 DATAOOO, 000,000, OOO, 252, 252, 248, 248 
1950 DATAOOO, OOO, OOO, OOO, 097, 033, 025, 015 
1960 DATAAOO , OOO , OOO , OOA, 129 , 229 , 2F.5 - 255 
1970 DATAOOO, OOO, OOO, OOO, 129, 129, 145,255 
1 980 DAT AO 1 6 , 056 ,024,016,241, 225 , 225, 255 
1 990 DATAOOO , OOO . OOO , OOO ,132,140,248,248 
2000 DA TA i 60 . 004 ,145, 004 , 080 , OOO , OOO , OOO 
20 1 0 DA F AOOO , OOO , OOO , 024 . 024 , OOO , OOO . OOO 
2020 DA T AOOO , OOO, 024, 036. 036, 024.000. OOO 
2030 DATAOOO .024 , 036 . 066 . 066 , 036 , 024 , OOO 
2040 DATA060 , 066 .129,129.129,129, 066 , 060 
2050 DATAOOO, 007. 252, 007.000,000.00n, OOO 
2060 DAT A0Ö4, 033, 136, 032, 004, Ö01,000,0o0. 

2070 DATA255, 129, 129, 129, 129, 129, 129,255 
2080 DATA 129, 066, 036, 000,000, 036, 066, 129 
2090 DA TA034, 136,034, 136,034, 136,034, 136 
2100 DATA002, 004, 056, 056, 255, 255. 255, 255 
2 1 1 0 DATAOOO , OOO , OOO , OOO, 195, 195, 227.255 


hj : .-hi w:r o 
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2120. CHAR2: RESTORE:TO«Ay.«&(iiF4OOT0&i.HF56F ; RFLADß%: PÜKEA7. , B'V.Vn'EXT: RETURN. 
2 1 30 DA TA6 , 5 . 5 , 4 , 4 , 3 , 3 , 3 ' 

2140 DATA152, 0, 157, 1-5 3,1 , 158 : 

2150 DATA154, 2, 159', 155, 3, 160- : 

2160 DAT A 1 72, 4 , 1 73, 156, 5,161 
2170 DATA 1 28,7, 133 , 129,8, 134 
2 1 SO . DATA 1 30 , 9, 135 ,131,1 0 , 1 36 • ' 

190 DATA132, 11 -,137, 12S, 13, 133 S 

200 DAT A £29 , 14, .134, 130, 15, 135 : 1 ^ 

2 1 0 DATA 131,1 6 , 1 36 ,132,1 7 , 1 37 T 

220- DATA! 44 , 19 , 1 4 8,145, 20 y 1 49 . 

2230 DATA1 46 , 2 1. , 1 50 , 1 4 7 , 22 ,15! 

2240 DATA144, 24, 148, 145, 25, 149 
2250 DAT Al 46,20, 1.50, 1 47,27, 151 
.2260 DATA1 3o , 29 , 141 , 13'?, 3.0, .1 42 . 2 ; ^ 

2270 DATA140, 31, 143, 138,3.3, 141 
2280- DATAT39, 34, 142, 140, -35, 1.43 ■ 

2290 DATA138,37, 141, 139,30, 142 ,•/ 

2300 DATA 140, 39, 143 V O . v.:-' 


ner Ausflug in die Grafik, Besser geht's mit Proze- 
duren, Funktionen, Rekursionen, Eindimensionale 
Felder, Sortieralgorithmen. 

Umfang : 220 Seiten, DIN A 4 
Autor : Karl-Hermann Rolke 
Erschienen bei: SYBEX Informatik 


PROGRAMMIEREN MIT TRS-80 

Inhalt: 

Die Benutzung des Recorders, Signalfilter, Das 
technische Innenleben,; das Betriebssystem, das 
Level II Basic, Variablen, Ein- und Ausgabe, die 
Grafik, Besonderes, ein Fehler im Basic, Program- 
mieren von Grafik, das Floppy -System, Expansion 
Port, Erweiterung des RAM. 

Außerdem finden Sie in diesem Buch über 30 Pro- 
gramme zum abtippen. Geeignet auch für Genie- 
Systeme. 

Umfang: 202 Seiten, DIN A5 
Autor : Martin Stübs 

Erschienen bei : Hofacker Verlag - Holzkirchen 


GRUNDKURS IN PASCAL, BAND 1 

Inhalt: 

Einführung, Erste Schritte mit dem UCSD-Pascal 
Betriebssystem, Konzept und Aufbau eines Pascal 
Programms, Reservierte Wörter und Symbole, Ein 
fache Datentypen, Schleifen, Entscheidungen, Klei 
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(GDOS |m Lieferumlang), natürlich mit Integrierter Grafiksoftware. 


IÜ 


COMPUTER GMBH 


Alleinvertrieb 

überden Fachhandel durch: 


Ktthutr. 4 
8205 St. Augustin 2 
Tel. O 22 41/2 80 71 
Telex 8 89 702 lr*m d 


COUPON 


Bitte Informieren Sie mich kostenlos und ausführlich 
über das GENIE llls und seine Anwendersoftware. 


Straße.. 


Telefon. 


Der schnellste Z 80 Rechner der Welt 
In Deutschland entwickelt 
und produziert. 


Sie suchen einen schnellen, leistungsstarken Rechner neuester Tech- 
nologie? Unser GENIE llls arbeitet mit einer Z 80 GPU bei 7,2 MHz 
Taktfrequenz. Der 128 K Benutzerspeicher kann auf der Platine bis 
256 K erweitert werden. Für die hochauflösende Grafik mit einer 
Auflösung von 512 x 512 Punkten stehen Ihnen in 2 unabhängigen 
Grafikselten weitere 64 K Bildwiederholspeicher zur Verfügung. 

Das Bildformat ist frei wählbar. z.B. 80 x 25, 64 x 16 usw. Der Zeichen- 
satz ist frei programmierbar mit einer Matrix von bis zu 8 x 16 Punkten. 
Diverse Standardzeichensätze sind im Betriebssystem enthalten. Die 
deutsche Tastatur ist frei beweglich und enthält 8 frei belegbare 
Funktionslasten und natürlich einen separaten Numerikblock. 

Die Kapazität der beiden 5,25" SHmline-Diskettenlaufwerke beträgt 
1,4 MByte. Jederzeit können weitere 31/2“, 5 Wund 8" Laufwerke 
direkt . angeschlossen werden. Selbstverständlich kann auch eine 
Harddisk eingebaut werden. Betriebssysteme sind CP/M und GDOS 


Das GENIE llls hat neben dem Centronics-Parallel -Druckerausgang 
und 2 RS 232 (V24) Schnittstellen zusätzlich einen universellen 16 Bit 
parallel Ein-Ausgang mit 4 Handshake-Leitungen. 

5 freie Steckplätze (Slots) geben Ihnen die Möglichkeit zur individuellen 
Erweiterung des Systems. 

Die MultllayerplatinB sowie die beiden Laufwerke sind zusammen mit 
dem reichlich dimensionierten Schaltnetzteil in einem formschönen, 
kompakten Metallgehäu se eingebaut. 

Die gesamte Elektronik des GENIE llls wird von der SIEMENS AG In 
Deutschland exklusiv für TCS gefertigt. 

Mit den beiden Betriebssystemen CP/M und GDOS haben Sie Zugriff 
auf die größten Softwarenpotentiale der Welt. 

Informieren Sie sich über unser Angebot für Anwendersoftware. 







